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PREFAZIONE 


Da utilizzatori di software, ci siamo sempre 
chiesti cosa potesse giustificare 1' elevato prezzo 
commerciale di certi pacchetti applicativi^ o 
peggio, di taluni giochi; forse lo sforzo del 
programmatore,il quale ha dovuto faticare parecchi 
mesi per stendere in algoritmo la sua idea, o forse 
interessi commerciali che inevitabilmente fanno 
lievitare il prezzo dei programmi in funzione della 
richiesta del mercato; ma dopo una attenta analisi 
del problema ci siamo accorti che le softwarehouse 
tengono alti i prezzi per arginare le perdite 
derivanti dal fenomeno della "pirateria". 

Il "pirata", infatti, non si contenta di copiare il 
programma, alle volte neanche regolarmente 
aquistato, per usi personali, ma trova divertente 
distribuirne, o peggio, venderne piu' copie 
possibile. , 

Quale arma resta alle softwarehouse per tutelare i 
propri programmi, le proprie vendite, ed 
indirettamente, gli interessi del programmatore che 
dopo mesi di lavoro attende la giusta ricompensa ? 
Immediata viene alla mente la soluzione del 
problema : proteggere il programma dalle copie 

clandestine , Questo vuol dire mettere al lavoro 
schiere di programmatori, per escogitare metodi di 
protezione validi, ma contemporaneamente si mettono 
in moto migliaia di utenti che provvedono a 
vanificare le protezioni rendendo perfettamente 
copiabili i programmi. 

Si innesca, cosi' una reazione a catena che vede da 
una parte i "buoni" , intenti a mettere a punto 
sistemi anticopia sempre piu' sofisticati ; e dall' 



altra i "cattivi" i quali lavorano per annullare il 
lavoro dei "buoni", e la storia si ripete. 

La legge nulla può' in questo caso non essendo, 
ancora regolata la materia, e chi paga le 
conseguenze di questo andazzo e', come al solito, 
il povero utente che si reca nei negozzi 
specializzati per acquistare un programma e paga, 
oltre al costo del programma stesso, il lavoro del 
programmatore che ha protetto il programma dalle 
copie . 

In definitiva, chi il pirata non lo ha mai fatto, 
continua a non farlo, mentre chi lo ha sempre fatto 
continua nella sua opera traendo, anzi, motivo di 
soddisfazione personale nello sproteggere un 
programma considerato incopiabile. 

Diciamolo francamente, non esistono protezioni 
efficaci al cento per cento, qualunque sistema 
anticopia, nelle mani di uno sprotettore esperto, 
crolla miseramente e' solo questione di tempo. 
Perche', allora, si deve precludere all' utente, 
normale, la possibilità', peraltro legittima, di 
fare delle copie di riserva del proprio software, 
quando attorno a lui molti lo fanno abusivamente ? 
Da queste considerazioni nasce il libro, non e' un 
delitto informare il lettore sui metodi di 
protezione e come fare ad eluderli, in quanto 
questi stessi metodi, ed altri, sono già' noti a 
chi, il pirata lo fa per mestiere; mettiamo dunque 
i "buoni" ed i "cattivi" sullo stesso piano, almeno 
per la possibilità' di copiare, e lasciamo al buon 
senso di entrambi la decisione sull' uso delle 
copie prodotte. 

Pensiamo che la pirateria e nata con il software e 
morirà' con esso, cioè' mai. Cosa si può' fare, 
allora ? Proprio niente, prenderla con filosofia, 
oppure, come stanno facendo molte case 



3 


di software americane, approfittare della 
diffusione piratesca dei loro prodotti, per farsi 
della pubblicità' gratuita, o quasi. 

Prima di augurare a tutti buon lavoro volevamo 
precisare che per motivi tecnici (i listati erano 
troppo lunghi e difficili da copiare ), non é stato 
possibile inserire tutti i programmi nel libro. 

Per compensare questa mancanza, i dischi con tutti 
i programmi necessari per le operazioni descritte, 
sono disponibili sia per Commodore 64 che per PC 
IBM e compatibili ad un prezzo modico. 


GLI AUTORI 
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GENERALITÀ' 


Generalmente il software commerciale é sempre protetto 
contro le copie, in altre parole, un programma 
regolarmente acquistato su supporto magnetico, può 
essere normalmente caricato nel calcolatore, eseguito, 
e poi cancellato, ma mai copiato. 

Se si tenta di duplicare uno di questi programmi, 
anche se alle volte sembra una operazione possibile, 
si ottengono i risultati più strani e le copie saranno 
sicuramente delle copie non funzionanti. 

I metodi per ottenere delle copie funzionanti, sono 
molteplici e di svariata natura e soprattutto legati 
al tipo di calcolatore adoperato; noi da ora in poi 
faremo riferimento ad un Commodore 64. 

Prima di addentrarci nei vari metodi sia per disco che 
per cassetta, vale la pena introdurre qualche 
premessa : 

Per potere accedere ad un programma 'chiuso' bisogna 
avere delle nozioni sui seguenti argomenti: 

- Elementi di linguaggio macchina 

Sistemi di numerazione decimale, binaria, 
esadecimale ecc. 

- Suddivisione standard della memoria del calcolatore 

- Studio del sistema operativo 

Questi argomenti saranno oggetto di discussione nei 
capitoli successivi, e precederanno quelli che sono i 
metodi di sprotezione veri e propri. 

Si raccomanda ai meno esperti un attento studio di 
questi capitoli fondamentali per 1' acquisizione delle 
tecniche di copiatura. 

Naturalmente, il lavoro diventerà più semplice via via 
che si saranno risolti 'casi' sempre più difficili. 
Resta inteso che Ime copie prodotte con le tecniche 
suggerite da questo libro serviranno, solo e soltanto, 
a creare delle copie di lavoro da destinarsi ad uso 
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personale. 

La mentalità dello sprotettore, una figura ben precisa 
nel panorama informatico del nostro tempo, deve essere 
rivolta a ciò che pensava il programmatore nel momento 
in cui stava per chiudere il nostro programma; bisogna 
esaminare come il programma si difende dai nostri 
assalti e cercare di individuarne le cause. 

Discorsi a parte é molto utile esaminare almeno una 
volta il programma da copiare, e vedere esattamente 
come si comporta; é buona norma non fidarsi della 
propria memoria e tenere accanto al tavolo di lavoro, 
un notes ed una penna, dove andranno annotate varie 
cose: indirizzi specifici del programma, locazione di 
partenza e di fine ecc. ecc. . 

Mi sembra di avere detto tutto e che possiamo 
cominciare lo studio vero e proprio; a tutti BUON 
LAVORO e se avete dei problemi 1' autore é a vostra 
completa disposizione, naturalmente tramite la casa 
editrice. 
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SISTEMI DI NUMERAZIONE 


I simboli numerici, o più semplicemente i numeri, 
furono inventati per facilitare le operazioni di 
conteggio. 

I diversi sistemi di numerazione differiscono nel 
tipo di simboli usati e nelle combinazioni degli 
stessi . 

I sistemi che sono realmente utili per lavorare su di 
un calcolatore sono tre: 

- Decimale (in base dieci) 

- Binario (in base due) 

- Esadecimale (in base sedici) 

Del sistema decimale é inutile parlarne in quanto é 
il sistema che adoperiamo quotidianamente e che 
quindi conosciamo molto bene. 

Vale, soltanto, la pena dare uno sguardo su quello 
che é un modo abbreviato di scrivere numeri decimali 
molto grandi, la notazione espansa o esponenziale. 

II valore espanso serve ad evidenziare il valore 
rappresentato da ogni cifra condensando in pochi 
simboli numeri molto grandi. 

Vediamo meglio di chiarire il concetto con un 
esempio : 

il numero 5867 é perfettamente equivalente alla 
seguente espressione: 

5 migliaia 8 centinaia 6 decine 7 unità 
5*1000 + 8*100 + 6*10 + 7 

oppure, che é lo stesso, si può scrivere: 


5*10(E)3 


+ 8*10(E)2 


+ 6*10(E)1 + 7*10(E)0 
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Il simbolo (E) evidenzia 1' operazione di elevazione 
a potenza. 

I numeri 1000,100,10,1 sono tutti potenze di dieci e 
si ottengono moltiplicando 10 per se stesso un certo 
numero di volte. 

Una potenza con esponente 0 é del tutto particolare; 
indipendentemente dalla base il suo valore é sempre 
uno, così ad esempio 10(E)0=1 oppure 156(E)0=1 ed 
anche 23(E)0=1 ecc. ecc. 

Anche le frazioni ed i numeri razionali si possono 
esprimere con la notazione espansa assegnando ad ogni 
cifra a destra della virgola decimale, una potenza 
negativa della base 10 a partire da 10(E)-1. 

Così avremo per esempio: 

0.00005 che diventa 5*10(E)-5 
0.0087 che diventa 8.7*10(E)-3 
0.000000012 che diventa 1.2*10(E)-8 

e così via. Per comprendere meglio questo meccanismo 
può essere utile consultare la tabella qui di seguito 
che rappresenta alcune potenze di dieci: 


10 ( E ) 0 

1 | 

10(E)-1 

0.1 

10 ( E ) 1 

10 j 

10(E)-2 

0.01 

10 ( E ) 2 

100 | 

10(E)-3 

0.001 

10 ( E ) 3 

1.000 j 

10(E)—4 

0.0001 

10 ( E ) 4 

10.0001 

10(E)-5 

0.00001 

10 ( E ) 5 

100.0001 

10(E)-6 

0.000001 

10 ( E ) 6 

1.000.0001 

10(E)-7 

0.0000001 

10 ( E ) 7 

10.000.0001 

10(E)-8 

0.00000001 

10 ( E ) 8 

100.000.000) 

10(E)—9 

0.000000001 

10 ( E ) 9 

1.000.000.0001 

10(E)-10 

0.0000000001 

10(E)10 

10.000.000.000l 

1 
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Questo tipo di notazione in base 10, sembra a prima 
vista complessa, in realtà il meccanismo é di facile 
apprendimento e consente un reale risparmio di cifre 
nel rappresentare un numero molto grande o anche 
molto piccolo. 


NUMERAZIONE IN BASE 16 


Nella memoria centrale di qualunque elaboratore i 
dati ed il programma sono immagazzinati come sequenze 
di numeri binari (che vedremo in dettaglio nel 
prossimo capitolo) cioè numeri formati dalla 
combinazione di due sole cifre lo 0 e 1' 1. 

Con queste due cifre é possibile rappresentare tutti 
i numeri ed anche tutte le lettere dell' alfabeto ed 
altri caratteri ancora. 

Ogni cifra di un codice binario prende il nome di 
bit; otto bit consecutivi formano un byte. 

Durante la scrittura, la messa a punto di un 
programma o il tentativo di riprodurne delle copie, 
é molto importante prendere visione dei dati e dei 
codici memorizzati nelle varie locazioni di memoria, 
ma é sicuramente molto pesante visionare lunghe 
sequenze di uno e di zero ed é anche facile sbagliare 
1' interpretazione dei codici. 

Per questi motivi, normalmente di adopera una 
rappresentazione dei dati più sintetica, quella 
esadecimale cioè in base sedici. 

Il metodo consiste nel rappresentare quattro cifre 
binarie con un unico simbolo; risulta subito evidente 
il perché della scelta base sedici, servono, infatti 
sedici simboli diversi in quanto, le possibili 
combinazioni di quattro bit sono sedici. 
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La numerazione in base sedici usa sedici simboli 
diversi come cifre; i primi dieci sono uguali alle 

cifre del sistema decimale: 0,1,2.9; le restanti 

6 cifre sono le prime lettere dell' alfabeto e cioè 
A,B,C,D,E,F. 

Ogni posizione entro una sequenza di cifre 
esadecimali é collegata con la relativa potenza di 
sedici . 

Ad esempio il numero esadecimale 14 é uguale a: 

1*16(E)1 + 4*16(E ) 0 

Come si era visto per i numeri decimali. 

Ecco di seguito una tavola di conversione dei primi 
16 numeri decimali in esadecimale e binario: 


DECIMALE 

BINARIO 

ESADECIMALE 

0 

0000 

0 

1 

0001 

1 

2 

0010 

2 

3 

0011 

3 

4 

0100 

4 

5 

0101 

5 

6 

0110 

6 

7 

Olii 

7 

8 

1000 

8 

9 

1001 

9 

10 

1010 

A 

11 

1011 

B 

12 

1100 

C 

13 

1101 

D 

14 

Ilio 

E 

15 

1111 

F 


La notazione esadecimale é molto importante e deve 
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diventare per il lettore di normale uso come il 
sistema decimale. 

Basti pensare che qualunque programma 
disassemblatore, strumento indispensabile per 
sproteggere un programma, funziona con codici 
esadecimali sia in assembler che in disassembler 
(programmi che saranno discussi in seguito). 

Nel capitolo dei programmi sarà presentato il 
listato di un programma in grado di convertire fra di 
loro, numeri in qualsiasi base. 


NUMERI BINARI 


Il sistema in base due, binario, é quello adoperato 
in tutti i calcolatori e si basa sugli stati logici 
delle varie porte dei circuiti elettronici che 
compongono il calcolatore stesso. 

La cifra uno sta per stato logico ' on ' cioè aperto 
mentre la cifra zero sta per stato logico 'off' cioè 
chiuso. 

Con queste due sole condizioni qualunque calcolatore, 
piccolo oppure grande, esegue tutte le sue funzioni. 
Un calcolatore che funzioni ad 8 bit, cioè a 8 cifre 
binarie alla volta é in grado di memorizzare in ogni 
locazione di memoria un numero pari ad 11111111 in 
binario, che tradotto in decimale fa 255. 

Il sistema di numerazione più in uso é, come già 
detto, quello esadecimale in quanto esprime un modo 
più sintetico per riconoscere i contenuti delle varie 
locazioni di memoria. 
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DIVISIONE DELLA MEMORIA 


La memoria del COMMODORE 64 ha una suddivisione molto 
originale, infatti risulta divisa in pagine, formate 
da 256 bytes ciascuna e numerate progressivamente a 
partire da 0. 

Complessivamente la RAM disponibile al BASIC ammonta 
a soli 39870 bytes la restante area di memoria tranne 
un' altra parte di RAM non a disposizione del BASIC, 
é memoria ROM che contiene i programmi applicativi, 
come l'interprete del basic, il sistema operativo, il 
generatori di caratteri, le variabili del sistema 

6 C C • 6CC • • 

Tramite la manipolazione di un particolare registro 
di memoria é tuttavia possibile cambiare 1' assetto 
della disposizione della memoria cosiddetta 
'standard' ; questo registro é situato nella prima 
pagina di memoria denominata pagina 0 e secondo la 
selezione dei bit può escludere parti di ROM 
trasformandole in RAM; questa RAM nascosta non é 
accessibile ai programmi in basic, ma può essere 
adoperata per scrivere programmi in linguaggio 
macchina. 

Sui modi di attuazione di quanto appena detto saranno 
dedicati ampi discorsi nei prossimi capitoli. 

Di seguito una tabella con la mappatura standard all' 
accensione del calcolatore: 

DA 0000 A 00FF — VARIABILI DI SISTEMA 

DA 0100 A 01FF — AREA STACK MICROPROCESSORE 

DA 0200 A 02FF — FLAG DI SALTO E PUNTATORI 

DA 0300 A 03FF — VETTORI DEL BASIC E DEL S.O. 

DA 0400 A 07E7 — MEMORIA VIDEO 

DA 07E8 A 07FF — PUNTATORI DEGLI SPRITE 
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DA 0800 A 9FFF — AREA PER PROGRAMMI IN BASIC 

DA 8000 A 9FFF — AREA PER CARTUCCE ROM 

vDA AOOO A BFFF — INTERPRETE BASIC 
DA COOO A CFFF — AREA LIBERA DI MEMORIA RAM 

DA DOOO A DFFF — DISPOSITIVI DI I/O RAM COLORE 

DA EOOO A FFFF — SISTEMA OPERATIVO KERNAL 

La prima pagina, la pagina zero, é molto interessante 
per i nostri scopi, cioè quelli di copiare programmi 
protetti, infatti in questa area di memoria sono 
contenuti molti puntatori che gestiscono alcune 
funzioni fondamentali, ma prima di esaminarli uno per 
uno vediamo come il COMMODORE 64 memorizza dei 
numeri in due locazioni contigue. 

LOCAZIONI 43-44: In queste due locazioni é codificato 
il punto di inizio dei programmi basic. 

La codifica avviene con il modo a byte basso e byte 
alto. 

In altre parole una locazione di memoria può 
contenere un numero non più grande di 255 che 
corrisponde in binario ad una serie di otto bit tutti 
posti alti cioè ad 1, se il numero da memorizzare é 
maggiore di 255 deve essere scomposto in due numeri 
ognuno dei quali minore di 255 secondo un modo logico 
e ripetibile, vediamo come: 

Il basic a disposizione dell' utente inizia dalla 
locazione 2048 dove deve esserci sempre il valore 0, 
ed il primo byte viene allocato a partire da 2049 
($0801), questo numero viene scisso in due bytes 
nella seguente maniera: 

BL=INT(L0C/256) 

BH=((LOC/256)-L0)*256 
Dove : 

BL= Bytes basso 
BH= Bytes alto 
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LOC= Locazione di memoria da codificare. 

Bisogna fare attenzione a mettere il byte basso nella 
prima locazione, nel nostro caso 43 e poi il bytes 
alto nella seconda locazione nel nostro caso 44. 
Queste operazioni vanno eseguite con delle semplici 
poke: POKE 43,BL e POKE 44,BH 

In questo modo si può, ad esempio, ingannare il 
sistema operativo andando a modificare i contenuti 
delle locazioni sopra esaminate facendo iniziare il 
basic da una locazione diversa di quella standard. 

La pagina 0 contiene altri importanti puntatori che 
vengono regolarmente consultati ed aggiornati dal 
sistema operativo per lo svolgimento di vitali 
funzioni del calcolatore stesso, vediamoli: 

LOCAZIONI 45-46 

In queste due locazioni con il solito metodo di 
codifica é memorizzata la fine del programma basic in 
atto e il successivo inizio dell' area delle 
variabili del programma stesso. 

variando questo puntatore é possibile registrare 
routine in linguaggio macchina allocate in coda al 
programma in basic le quali risultano completamente 
invisibili, si proceda nella seguente maniera: 

1- scrivere il programma basic nel modo tradizionale; 

2- entrare in monitor allocato a 49152 ($C000) 

3- dall' esame dei puntatori di fine programma 
stabilire 1* ultima locazione occupata dal programma 
stesso ( le ultime tre locazioni di qualunque 
programma sono sempre tre zeri consecutivi); 

4- cominciare ad assemblare il programma in 
linguaggio macchina in coda a quello basic, avendo 
cura di NON TOCCARE gli ultimi tre zeri che indicano 
al sistema operativo la fine dell' ultima riga di 
programma ; 

5- annotare 1' ultima locazione occupata dal 
programma in linguaggio macchina e codificarla in 
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byte basso e byte alto; 

6- uscire dal monitor con il comando X 

7- pokare nelle locazioni di fine basic e nella 
giusta sequenza, (byte basso, byte alto) i valori 
ottenuti 

8- eseguire un normalissimo SAVE 

il nostro programma in basic é, ora, regolarmente 
salvato con in coda il programma in linguaggio 
macchina. 

Vediamo ora di esaminare più in particolare come il 
COMMODORE gestisce la memoria. 

Il COMMODORE ha 64 Kbytes di memoria RAM, oltre a 20 
Kbytes di memoria ROM i quali contengono tutti i 
programmi di supporto, come 1' interprete basic, il 
sistema operativo, il set di caratteri standard. 
Questa quantità di memoria indirizzata sembra 
eccessiva, infatti un computer come il COMMODORE 64 
con un bus dati a 16 bit non può indirizzare più di 
64 Kbytes, in condizioni normali. 

Per potere controllare più memoria di quella 
possibile il microprocessore del calcolatore si serve 
di una porta di input/output (I/O) e un registro di 
locazione dati. 

Questi due importantissimi registri sono posizionati, 
rispettivamente nella locazione 1 e nella locazione 

0 . 

Nella porta di controllo di I/O della locazione 0 i 
bit, all' accensione sono così suddivisi: 

NOME BIT DIREZIONE DESCRIZIONE 


LORAM 0 OUTPUT 

HIRAM 1 OUTPUT 

CHAREN 2 OUTPUT 

3 OUTPUT 

4 INPUT 

5 OUTPUT 


Scambio RAM/ROM area Basic 
Scambio RAM/ROM S.O Kernal 
Scambio RAM/ROM I/O 
Linea scrittura cassetta 
Controllo cassetta 
Controllo motore cassetta 
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6 Non Usato 

7 Non Usato 


La configurazione di bit con il basic attivato il 
sistema operativo pronto ed il set caratteri 
standard, é la seguente: 

BIT CONTENUTO 


0 

1 

2 

3 

4 

5 


1 

1 

1 

1 

0 

1 


Che in decimale fa 47, questo é il valore 
riscontrabile nella locazione 0 all' accensione del 
sistema. 

In altre parole é possibile variando i bit della 
locazione 0 ad esempio disabilitare il basic ed usare 
le stesse locazioni come RAM. 

Naturalmente in questo caso il basic non esisterà più 
e i programmi vanno scritti necessariamente in 
linguaggio macchina o con altro interprete caricato 
dall 1 esterno. 

Esaminiamo ora le diverse linee di controllo per 
ottenere le diverse configurazioni di memoria: 

LORAM: 

Questa linea é normalmente alta (posta ad 1) e se 
viene posta bassa ( a 0) esclude il basic attivando 8 
Kbytes di RAM che vanno da $A000 ad $BFFF. 

HIRAM: 

Questa linea é normalmente alta e se posta bassa 
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esclude il sistema operativo KERNAL attivando 8 
Kbytes di RAM mappati da $E000 a $FFFF. 

CHAREN: 

Questa linea é usata per escludere dall' area 
indirizzata dal microprocessore una ROM di 4 Kbytes 
che contiene il set dei caratteri standard del 
COMMODORE. 

Questa linea é posta generalmente alta e viene posta 
bassa quando si devono riprogrammare tutti i 
caratteri del set o parte di esso oppure per esigenze 
grafiche. 

E' da notare che se vengono alterati i bits di queste 
porte il computer non si danneggia ma é molto facile 
provocare il blocco del sistema, in questi casi basta 
spegnere e riaccendere il computer per ripristinare 
le condizioni iniziali. 

Ricapitolando, possiamo dire che il microprocessore 
del Commodore 64 ha un bus da 16 bit. 

Questo significa che é in grado di indirizzare 65536 
locazioni di memoria, cioè 64 KByte. 

Di questi 64 Kbyte però, 16 sono riservati a memoria 
ROM e contengono 1' interprete basic ed il sistema 
operativo; rimangono facendo la ovvia sottrazione 
soltanto 44 Kbyte a disposizione (tenendo conto che 4 
Kbytes sono normalmente impegnati per il CIA complex 
interface adapter). 

Il Commodore 64 per indirizzare più memoria di quella 
matematicamente possibile, usa un sistema che 
consiste nel mettere la memoria aggiuntiva in 
parallelo a quella già esistente. 

Questo vuol dire che gli indirizzi saranno gli stessi 
ma una porta si occuperà di commutarli anche via 
software, le locazioni di questa porta sono già state 
precedentemente prese in esame. 

Facciamo, ora, qualche prova su quanto detto per 
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comprendere meglio come stanno le cose: 

Nel Commodore 64 la memoria nascosta si trova 
parallela alla ROM locata a partire dall' indirizzo 
$A000, 40960 in decimale fino ad $FFFF in decimale 
65535, ad eccezione di 4 Kbytes locati da $C000, 
49152 in decimale, fino ad $CFFF, in decimale 53247, 
che sono di RAM non accessibile al basic e quindi 
rappresentano un luogo ideale per allocare pezzi di 
linguaggio macchina al sicuro da pericolose 
sovrapposizioni . 

Tutto ciò si può verificare facendo: 

POKE 50000,12 :PRINT PEEK( 50000) 

Come risposta si otterrà 12, segno che questa 
locazione di memoria é RAM perfettamente accessibile, 
infatti rientra in quei 4 Kbytes compresi tra $C000 e 
$CFFF. 

Se, invece proviamo a digitare: 

POKE 60000,12 :PRINT PEEK(60000) 

avremo come risultato 235; questo vuol dire che 
quella locazione é sicuramente ROM. 

Il 12, che si é tentato di scrivere nella locazione 
60000, non é andato perduto, ma, é stato scritto 
nella RAM parallela. 

Possiamo dedurre che un tentativo di scrittura in una 
zona ROM sarà accettato dalla RAM parallela, mentre 
un tentativo di lettura sarà accettato solo dalla 
ROM. 

Selezionando i banchi di memoria, come già detto in 
precedenza, é possibile scambiare zone di ROM con le 
sottostanti zone di RAM. 

Per fare ciò bisogna adottare qualche precauzione, 
infatti, se si scambiasse, ad esempio, la ROM dell' 
interprete basic con la corrispondente ram, il 
sistema operativo tenterebbe di leggere dati dell' 
interprete sempre dalle stesse locazioni solo che 
troverebbe al posto della ROM con il giusto 
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programma, della RAM disordinata, risultato, il 
blocco del sistema che si può ripristinare solo 
spegnendo e riaccendendo il calcolatore. 

A titolo do esempio, vediamo come si può copiare 1' 
interprete basic dalla ROM alla RAM per poi poterlo 
modificare a piacimento: 

- Digitare la seguente linea basic in modo diretto: 
FOR T=40960 TO 49151:P0KE T,PEEK(T):NEXT 

- Digitare, sempre in modo diretto: 

POKE 1,54 

Nella prima fase, vienre ricopiato tutto 1' 
interprete basic nella RAM parallela, ed nella 
seconda si seleziona la porta informando il sistema 
operativo, di leggere la RAM corrispondente alla ROM 
del basic. 

Questa volta il sistema non va in blocco perche il 
sistema operativo continua a trovare nelle nuove 
locazioni, tutte le routine che gli servono. 

Come si può facilmente dedurre, queste nozioni aprono 
nuovi orizzonti alla programmazione; unico problema, 
é che bisogna saper programmare in assembler, ma con 
un poco di buona volontà e qualche testo specifico si 
può centrare qualunque risultato. 
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LINGUAGGIO MACCHINA DEL COMMODORE 64 

IL Commodore 64 é architettato su un microprocessore 
molto diffuso: il 6510 della famiglia CMOS 

direttamente derivato dal più vecchio 6502, 
conservando una compatibilità totale con quest 1 
ultimo. 

Il linguaggio macchina, di questo- processore, non é 
poi molto difficile e ci si potrebbe fare ingannare 
dalla apparente complessità dell 1 argomento. 

Tuttavia, é sufficiente inpadronirsi dei concetti 
fondamentali per, gradatamente, riuscire a programmare 
in questo affascinante linguaggio. 

Scopo do questo libro, non é quello di fare un corso 
di assemblyj pur tuttavia viene fornita qualche 
indispensabile nozione per potere svolgere il lavoro 
di copiatura dei programmi protetti in una qualche 
maniera. 

Il linguaggio macchina é il linguaggio adoperato dal 
microprocessore per eseguire i nostri programmi. 

Ogni istruzione che viene fornita alla macchina in 
basic, viene tradotta da un apposito programma in 
codice macchina, perché il codice macchina é 1' unico 
linguaggio che il computer può eseguire. 

Facciamo, ora un paragone, con un semplice programma 
in basic : 

10 B=1:C=1 
20 D=B+C 
40 PRINT D 

Questo programmino tutti siamo in grado di 
comprenderlo, vediamo come, in realtà, il computer lo 
recepisce : 
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A9 01 69 0A 8D 00 04 A9 01 8D 00 D8 60 


Questo é il modo con cui il nostro Commodore esegue il 
semplice programma in basic sopra visto, ma questa 
serie di numeri, al contrario del programma in basic, 
difficilmente riusciremo a capirla; per questo motivo, 
é stato creato un linguaggio denominato assembly che 
permette di programmare in modo molto molto simile al 
codice macchina diretto, vediamo come si potrebbe 
scrivere in assebly il semplice programma in basic di 
prima: 


LDA *$01 
ADC *$01 
STA $0400 
RTS 


B = 1 

SOMMA 1 

SCRIVI IL RISULTATO 
FINE 


IL programma risuta certamente più comprensibile di 
prima. 

Il linguaggio assembly é basato in definitiva, su di 
una serie di codici come LDA, ADC, STA, RTS, ed altri 
che vengono subito codificati in codice macchina e 
direttamente eseguiti dal microprocessore. 

Prima di parlare di codici assembler bisogna parlare 
di come questi codici possono agire; queste tecniche 
si chiamano indirizzamenti: 


INDIRIZZAMENTO IMMEDIATO: il codice della istruzione 
relativa é direttamente eseguibile senza attingere 
notizie o dati dalla memoria centrale 


INDIRIZZAMENTO ASSOLUTO: il codice o i codici 
interessano una locazione di memoria specifica durante 
1' esecuzione della istruzione stessa 


INDIRIZZAMENTO IN PAGINA ZERO: vale quanto detto per 
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il precedente indirizzamento, solo che le locazioni 
intreressate sono le prime 256 e vengono numerate da 
0 a 255. 

Questo indirizzamento si distingue dal precedente in 
quanto più veloce nell' esecuzione. 

INDIRIZZAMENTO INDICIZZATO: 1 accesso alla memoria di 
questo tipo di indirizzamento, é condizionato dal 
valore dei registri programmabili- X ed Y, come vedremo 
in seguito. 

INDIRIZZAMENTO IMPLICATO: é un indirizzamento poco 
usato in quanto si usa solo con 1' istruzione JMP 
(salto incondizionato); la locazione di memoria dove 
saltare con il JMP con questo tipo di indirizzamento, 
viene codificata come byte basso, byte alto in altre 
due locazioni di memoria contigue. 

INDIRIZZAMENTO INDIRETTO INDICIZZATO: simile all' 
indirizzamento indicizzato con la differenza che le 
locazioni di memoria interessate sono indicizzate 
esclusivamente dal registro Y. 

INDIRIZZAMENTO INDICIZZATO INDIRETTO: come il 
precedente solo che come indicizzazione vengono 
adoperati degli spazi in pagina zero; questo é 1' 
unico tipo di indirizzamento indicizzato che consente 
di accedere a tutta la memoria del Commodore 64. 

Esaminiamo, ora una per una, tutte le istruzioni del 
microprocessore 6510: 
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LDA 

LDX 

LDY 

STA 

STX 

STY 

TAX 

TAY 

TXA 

TYA 

NOP 

JMP 

JSR 

RTS 

INC 

INX 

INY 

DEC 


carica 1 1 accumulatore 
carica il registro x c 
carica il registro y c 
deposita il contenuto 
deposita il contenuto 
deposita il contenuto 
scambia 1' accumulator 
scambia 1' accumulator 
scambia il registro x 
scambia il registro y 
nessuna operazione per 
salto incondizionato 
salto ad una soubrouti 
ritorno al basic 
incrementa un byte di 
incremente il registro 
incrementa il registro 
decrementa il byte di 


con un numero o un byte 
on un numero o un byte 
on un numero o un byte 
dell' accumulatore 
del registro x 
del registro y 
e con il registro x 
e con il registro y 
con 1' accumulatore 
con 1' accumulatore 
il 6510 

ne 


una unità 


x di 

una 

unità 

y di 

una 

unità 

una unità 
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DEX 

decrementa il registro x 

di 

una unità 

DEY 

decrementa il registro y 

di 

una unità 

CMP 

compara 1* accumulatore 



CPX 

compara il registro x 



CPY 

compara il registro y 



BEQ 

salta 

se uguale a zero 



BNE 

salta 

se diverso da zero 



BCC 

salta 

se il carry é zero 



BCS 

salta 

se il carry é uno 



BVC 

salta 

se overflow é zero 



BVS 

salta 

se overflow é zero 



BPL 

salta 

se maggiore di 128 



BMI 

salta 

se minore di 128 




BRK interruzione forzata 

PHA deposita accumulatore nello stack 

PKP ilt-oosi ha il registro si. nello stack 

PLA preleva il valore in cima allo stack 
PLP preleva e deposita il valore dello stack 
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TXS deposita il registro x nello stack 

AND and logico con 1' accumulatore 

ORA or logico con 1 '' accumulatore 

EOR or esclusivo con 1' accumulatore 

BIT and logico particolare 

ADC somma un numero all' accumulatore 

SBC sottrae un numero dall' accumulatore 

SEC mette a uno il bit di carry 

CLC mette a zero il bit di carry 

SED inserisce il modo decimale 

CLD disinserisce il modo decimale 

SEI disabilita gli interrupt 

CLI abilita gli interrupt 

RTI ritorno da un interrupt 

CLV mette a zero il bit di overflow 

ROR rotazione di un bit a destra 

ROL rotazione di un bit a sinistra 

ASL spostamento di un bit a sinistra 

LSR spostamento di un bit a destra 
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Naturalmente il set di istruzioni non é 
programmare in linguaggio macchina in 
una certa sintassi da rispettare, ma 
riconoscere e seguire il filo logico di 
scritto da altri autori. 


sufficiente a 
quanto esiste 
é utile per 
un programma 
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IL SISTEMA OPERATIVO DEL COMMODORE 64 


Questo complesso programma che permette tutte le 
funzioni base del calcolatore pur rimanendo 

trasparente all' utilizzatore prende, il nome di 
KERNAL. 

Tutto 1' input e 1' output e le varie gestioni 

interne, sono controllate dal Kernal. 

All' accensione del calcolatore il Kernal parte 
automaticamente e prende il controllo della macchina 
stessa attraverso un processo che prende il nome di 
inizializzazione. 

Questo processo consiste in più fasi, vediamole in 
dettaglio : 

- Viene riattivato il puntatore dello stack e 
attivato il modo decimale 

- Il kernal controlla se é presente una cartuccia 
nella porta posteriore, se questa é presente 1' 
inizializzazione viene interrotta e il controllo 
viene ceduta alla ROM della cartuccia e, in genere, 
si ottiene un autostart molto difficile de inibire. 

Se invece nessuna cartuccia é presente la procedura 
continua. 

- Il Kernal inizializza tutti i dispositivi di input 
ed output e di conseguenza il bus seriale, viene 
attivato il timer e la scansione della tastiera ha 
inizio, viene selezionata la mappa di memoria basic e 
viene spento il motore del registratore a cassette. 

- Il Kernal esegue, ora, un test sulla RAM 
inizializza la pagina zero ed il buffer di cassetta. 
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Viene azzerato ed impostato lo schermo, viene 
attivato 1' editor ed il controllo viene affidato al 
basic. 

Il calcolatore a questo punto é pronto per accettare 
comandi: dalmomento dell' accensione sono trascorsi 
pochi secondi. 

Il kernal é un programma completamente trasparente 
all' utente, nel senso che non ci si accorge che 
esiste, ma, può . essere adoperato sfruttando le 
prezziose routine in esso contenute. 

Fortunatamente é nota la tavola dei salti del Kernal 
che contiene tutti gli indirizzi delle routine del 
sistema operativo. 

Vediamo, ora, come sfruttare a nostro vantaggio 
questa peculiarità del Commodore 64. 

Per usare correttamente una, o più, routine del 
Kernal, bisogna seguire determinate procedure che si 
possono riassumere in tre passi fondamentali: 

1) PREPARAZIONE 

2) CHIAMATA DELLA ROUTINE 

3) GESTIONE DELL' ERRORE 

Per preparazione si intende 1' insieme di tutte 
quelle procedure preliminari alla chiamata della 
routine del Kernal, come ad esempio, caricare 1' 
accumulatore con un certo valore che verrà poi 
trasmesso alla routine vera e propria oppure eseguire 
un azzeramento dei registri ecc. ecc.. 

La chiamata della routine viene eseguita tramite un 
jsr (salto ad una soubroutine) e alla fine il 
controllo viene restituito all' interprete basic 
oppure al programma monitor. 

Al ritorno, la routine può trasmettere dei codici di 
errore, i quali, possono essere gestiti da programma 
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nella maniera più opportuna; ad esempio se si vuole 
caricare un file da disco con 1' ausilio delle 
routine del Kernal, ed il file non venisse trovato 
sul disco, non si otterrebbe il solito "file not 
found" ma solo un codice di errore caricato sul' 
accumulatore o altro registro che può essere 
tranquillamente gestito dal programmatore. 

Ecco qui di seguito la tavola dei salti delle varie 
routine del Kernal: 


NOME 

INDIRIZZO 

DESCRIZIONE 

FI 

65445 

accetta un byte dalla porta seriale 

F 2 

65478 

apre il canale di input 

F 3 

65481 

apre il canale di output 

F 4 

65487 

accetta un carattere dal canale 

F5 

65490 

immette un carattere nel canale 

F6 

65448 

trasferisce dati porta seriale 

F7 

65409 

inizializza editor di schermo 

F8 

65511 

chiude tutti i canali 

F9 

65475 

chiude un file logico specifico 

FIO 

65484 

chiude tutti i canali in/out 

FU 

65508 

prende un carattere dal buffer 

F12 

65523 

base dell' in/out 

F13 

65412 

inizializza 1' in/out 

F14 

65457 

dispone a ricevente il bus 

FI 5 

65493 

carica la ram da dispositivo 

F16 

65436 

imposta la base della memoria 

FI 7 

65433 

imposta il top della memoria 

F18 

65472 

apre un file logico 

FI 9 

65520 

legge/imposta il cursore 

F20 

65415 

inizializza la ram 

F21 

65502 

legge il clock 

F22 

65463 

legge lo status 

F23 

65418 

ripristina in/out 

F24 

65496 

salva la ram su dispositivo 

F25 

65493 

scandisce la tastiera 
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F26 

65517 

ritorna la pos del cursore 

F27 

65427 

trasmette indirizzo secondario 

F28 

65466 

imposta gli indirizzi 

F29 

65424 

controlla i messaggi del Kernal 

F30 

65469 

imposta il nome del file 

F31 

65499 

imposta il clock 

F32 

65442 

tempo bus seriale 

F33 

65505 

termina la scansione tastiera 

F34 

65460 

trasmette su dispositivo 

F35 

65430 

invia indirizzo secondario sul bus 

F36 

65514 

incremente il clock 

F37 

65454 

imposta il bus non ricevente 

F38 

65451 

imposta il bus non trasmittente 

F39 

65421 

legge/inposta in/out 


A titolo di esempio, vediamo come si può adoperare la 
F15 che carica la ram da un dispositivo, cioè esegue 
un normale load. 

La routine é la seguente: 

LDA *$ device imposta il codice del dispositivo 

LDX *$ fileno imposta il numero del file logico 

LDY *$ cmd imposta 1' indirizzo secondario 

JSR F15 routine Kernal F15 

In questo modo si possono caricare programmi da disco 
o da nastro non da basic ma direttamente usando le 
routine del sistema operativo. 

Questo può essere utile in quanto molti programmi 
protetti, usano inibire il load ed il save da basic, 
ma naturalmente usando le routine del Kernal, questa 
protezione viene a cadere. 

Esaminiamo, ora, tutte le routine del sistema 
operativo con le relative locazioni in esadecimale: 
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$E000-$E042 

Inizio del sistema operativo che contiene, ancora 
parti utili all' interprete basic. 

$E043-$E08C 

Converte 1 'argomento di una funzione in un numero 
compreso fra zero ed 0.999999999. 

$E08D-$E096 

Routine utilizzata nella funzione RND 
$E097-$E0F8 

Esegue la funzione RND 
$E0F9-$E10B 

Controlla gli errori di i/o da basic 
$E10C-$E111 

Serve a prelevare un carattere dal buffer 
$E 118 —$E 11 D 

Manda un carattere in uscita sul canale 
$E11E-$E123 

Routine di apertura canale di entrata 
$E124-$E129 

Routine del basic che preleva un carattere dalla 
tastiera con una procedura simile a quella ottenuta 
con il comando basic get. 

$E12A-$E155 

Serve ad eseguire la funzione sys.controlla se dopo 
la funzione sys esiste una virgola e carica i valori 
numerici che la seguono nell' accumulatore nel 
registro x e nel registro y; poi procede a mandare in 
esecuzione la routine in liguaggio macchina indicata 
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dal primo parametro, infine scarica i registri nelle 
locazioni di memoria 780,781,782,783 e cede il 
controllo al basic. 

$E156-$E15E 

Esegue il comando SAVE, esamina il testo del comando 
basic ed esegue di conseguenza la routine apposita, 
dopo, cede il controllo alla routine successiva. 

$E15F-$E164 

Salva la memoria ram su di un dispositivo periferico 
usando una routine che vedremo in seguito locata a 
partire da $FFD8 

$E16 5-$E16 7 

Esegue il comando VERIFY, controlla il testo basic e 
preleva i parametri per la routine di LOAD 

$E168-$E17 4 

Esegue il comando LOAD, prelevando i parametri dal 
testo basic, infine salta alla routine seguente 

$E175-$E1BD 

Carica una zona di ram da un dispositivo periferico 
usando la routine di load locata a partire da $FFD5 

$E1BE-$E1C0 

Esegue il comando OPEN; controlla i parametri del 
testo basic e passa il controllo alla routine 
successiva. 

$E1C1-$E1C6 

Apre un file desiderato sfruttando la routine di open 
locata a partire dalla locazione$FFC0 

$E1C7-$E1C9 

Esegue il comando CLOSE usando la routine che segue 
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$E1CA-$E1D3 

Chiude un file desiderato usando la routine di dose 
situata a partire dalla locazione $FFC3. 

$E1D4-$E1FF 

Preleva i parametri del testo in basic per 1' 
esecuzione delle rouitnes di SAVE,LOAD,VERIFY. 

$E200-$E205 

Esamina i dati dopo le virgole 
$E206-$E20D 

Controlla la lunghezza dei comandi, al raggiungimento 
dell' ultimo carattere, inizializza lo stak e setta 
tutti i parametri. 

$E20E-$E218 

Controlla che 1' ultimo byte del testo non sia 
seguito da un due punti o un byte nullo, in questo 
caso stampa un SYNTAX ERROR. 

$E219-$E263 

Routine usata per i comandi OPEN e CLOSE. 

$E264-$E26A 

Esegue la funzione COS. 

$E26B-$E2B3 

Esegue la funzione SIN. 

$E2B4-$E2DF 

Esegue la funzione TAN. 

$E2E0-$E2E4 

Zona dove si trova memorizzata la costante in virgola 
mobile PIGRECO. 
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$E2E5-$E2E9 

Zona dove si trova memorizzata la costane in virgola 
mobile PIGREC0*2. 

$E2EA-$E2EE 

Zona dove si trova memorizzata la costante i’n virgola 
mobile 0.25. 

$E2EF-$E30D 

zona di memoria dove sono memorizzate alcune costanti 
in virgola mobile utili per la funzione SIN. 

$E30E-$E33D 

Esegue la funzione ATN (arcotangente). 

$E33E-$E393 

Contiene alcune costanti utili per la funzione ATN. 
$E37B-$E393 

Routine di warm start; questa routine viene eseguita 
ogni volta che viene incontrata una istruzione di BRK 
oppure quando vengono premuti contemporaneamente, i 
tasti di RUN/STOP e RESTORE. 

$E394-$E396 

Routine di cold start reinizializza il basic ed 
esegue una routine di reset. 

$E 397-$E3Al 

Inizializza la pagina zero della memoria, ed esegue 
una warm start. 

$E3A2-$E3B9 

Aggiorna dati in pagina zero. 


$E3BA-$E3BE 
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Contiene dati per la funzione RND. 

$E3BF-$E446 

Inizializza la ram del basic e predispone la 
configurazione standard di memoria. 

$E447—$E452 

Zona di memoria in cui sono memorizzati in rom, tutti 
i vettori basic. 

$E453-$E45F 

Routine che aggiorna la pagina zero della memoria. 
$E460-$E472 

Zona di memoria che contiene la stringa BYTES FREE. 
$E473-$E4AC 

Zona di memoria che contiene i messaggi della 
schermata che si ottiene all' accensione del sistema 
o ad un suo reset. 

$E4AD-$E4D9 

Routine del basic per le operazione su periferica. 
$E4DA-$E4DF 

Contiene i parametri per il colore del bordo. 
$E4E0-$E4EB 

Routine di attesa per il caricamento di un programma 
da nastro, se si preme il tasto Commodore, la routine 
viene saltata ed il caricamento viene subito 
eseguito. 

$E4EC-$E4FF 

Contiene costanti adoperate dall' interfaccia RS232. 
$E 500-$E 504 

Parte di sistema operativo che controlla tramite 
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interrupt, la gestione delle periferiche. 

$E505-$E509 

Routine che provvede alla organizzazione dello 
schermo in 25 linee e in 40 colonne. 

$E50A-$E517 

Routine che controlla le linee e le colonne dello 
schermo. 

$E518-$E565 

Inizializza tutte le procedure di I/O. 

$E566-$E56B 

Porta il cursore in posizione HOME ( in alto a 
sinistra ) . 

$E 56C-$E 599 

Si occupa della gestione del cursore. 

$E 59A-$E 59F 

Reinizializza i registri del video. 

$E 5A0-$E 5A7 

Reinizializza le procedure di I/O. 

$E 5A8-$E 5B3 
Setta il VIC II. 

$E 5B4-$E 5C9 

Preleva i caratteri dal buffer di tastiera. 
$E5CA-$E631 

Routine che si occupa dell' INPUT 

$E632-$E639 
Input da tastiera. 
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$E63A-$E683 
Input da schermo. 

$E684-$E690 

Ferma la procedura di tok'eni zzazione delle parole 
chiave incluse fra apici. 

$E691-$E715 

Stampa sullo schermo il contenuto dell' accumulatore. 
$E716-$E8A0 

Interpreta i due set di caratteri, i codici colore, e 
i caratteri di controllo tra apici. 

$E8A1-$E8B2 

Decrementa il contatore di linea. 

$E8B3-$E8CA 

Incrementa il contatore di linea. 

$E8C8-$E8D9 

testa il colore del cursore. 

$E8EA-$EA30 

Zona di memoria che contiene tutte le routine di 
scrolling dello schermo. 

$EA31-$EA86 

Routine di esecuzione di un interrupt richiesto 
(IRQ). 

$EA87-$EB78 

Routine di scansione della tastiera. 


$EB79—$ED08 

Tavole usate per convertire la avvenuta pressione di 
un tasto nel corrispondente codice ASCII. 
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$ED09-$ED0B 

Routine che effettua un or logico tra il contenuto 
dell' accumulatore e $40. 

$ED0C-$EDB8 

Routine che esegue un or logico tra il contenuto 
dell' accumulatore e $20. 

$ED89-$EDC6 

Trasmette un indirizzo secondario al bus IEEE. 
$EDC7-$EDDC 

Trasmette un indirizzo secondario al bus IEEE. 
$EDDD-$EDEE 

Trasmette un byte attraverso il bus IEEE. 

$EDEF-$EDFD 

Trasmette un comando di chiusura al bus IEEE. 
$EDFE-$EE12 

Trasmette un comando di non ascolto al bus IEEE. 
$EE13-$EEBA 

Preleva un byte dal bus IEEE e lo memorizza nell' 
accumulatore. 

$EEBB-$EF05 

Sistema per la- generazione di NMI (interrupt non 
mascheratile) usato dall' interfaccia RS232. 

$EF06-$EF58 

Trasmette un byte in uscita sulla interfaccia RS232. 
$EF 59-$F0BC 

Routine che tratta gli NMI per i byte provenienti 
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dall' inerfaccia RS232. 

$F0BD-$F12A 

Zona di memoria che contiene tutti i messaggi di 
errore e di controllo del sistema operativo. 

$F12B-$F13D 

Questa routine serve a stampare sullo schermo i 
messaggi della routine precedente. 

$F13E-$F156 

Preleva un carattere dal buffer di tastiera e lo 
memorizza nell' accumulatore. 

$F157-$FlC9 

Preleva un carattere dal canale di input e lo 
memorizza nell' accumulatore. 

$F1CA-$F20D 

Trasmette ad un canale di uscita il contenuto dell' 
accumulatore. 

$F20E-$F24F 

Serve per la gestione di alcuni tipi di file 
particolari. 

$F250-$F290 

Considera un file come file di uscita dati. 
$F291-$F32E 

Chiude un file specifico. 

$F32F-$F332 

Chiude tutti i file sia di entrata che di uscita. 
$F333-$F349 

Questa routine reinizializza tutti i canali del 
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sistema. 

$F34A-$F49D 

Apre un file specifico. 

$F49E-$F5DC 

Carica in memoria un file specifico. 

$F5DD-$F69A 

Salva una zona di memoria su di un dispositivo. 
$F69B-$F6EC 

Routine di IRQ che provvede all' aggiornamento del 
clock, alla scansione della tastiera, e al test sulla 
pressione del tasto di S.TOP. 

$F6FD-$F6FA 

Controlla 1' avvenuta pressione del tasto di STOP. 
$F6FB-$F72B 

Provvede, in caso di errore, a stampare il messaggio 
appropriato. 

$F72C-$F80C 

Trova e legge il blocco HEADER nel caricamento di un 
file da nastro. 

$F80D-$F92B 

Varie routines che controllano le operazioni con il 
nastro. 

$F92C-$FA6F 

Routines di controllo della lettura da nastro. 
$FA70-$FBA5 

Routines che trasferiscono dati al nastro. 
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$FBA6—$FCE1 

Routines di controllo per la registrazione su nastro. 
$FCE2—$FE42 

Routine di cold start, viene eseguita all' accensione 
del computer; la memoria viene inizializzata e 
vengono abilitati tutti i collegamenti con le 
periferiche. 

La parte iniziale della routine controlla la presenza 
di una cartuccia nell' apposita porta: se ne viene 

riscontrata la presenza il controllo viene ceduto al 
programma della cartuccia, viceversa, si continua con 
la normale routine di cold start. 

$F343-$FF 47 

Routine di controllo per NMI. 

$FF 48-$FF80 

Questa routine viene eseguita ad ogni chiamata di un 
interrupt e provvede a salvare i registri e ad 
analizzare la natura dell' interrupt. 
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Dall' attento studio di queste routine si possono 
fare molte esperienze utili ai nostri fini; ad 
esempio chiamando la routine del sistema operativo 
incaricata di leggere 1' HEADER di cassetta locata a 
$F72C e facendola partire con 1' apposita SYS, si può 
leggere questa importante parte di nastro, inibendo 
la presenza di un eventuale autorun presente. 

Il valore delle informazioni contenute nel blocco 
iniziale di ogni registrazione, appunto 1' HEADER, 
verrà discusso nel capitolo inerente. 
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INTERRUPT 


Il concetto di interrupt, rientra con pertinenza di 
argomento nella nostra trattazione sulla protezione 
e sprotezione dei programmi, infatti molti trucchi 
adoperati da rinomate case di software per impedire 
la copiatura illegale dei propri programmi, si 
basano, appunto, sulla manipolazione di questo 
parametro della macchina. 

Tutti i microprocessori, dal più semplice al più 
complesso, sono in grado di gestire un servizio alla 
volta, intendendo per servizio, qualunque operazione 
che il computer possa svolgere: 1' esecuzione di un 
programma, la consultazione di una periferica, o la 
manipolazione di dati. 

Alle volte si ha 1* impressione che il computer 
possa eseguire più operazioni contemporaneamente, 
cosa naturalmente impossibile. 

Ad esempio in alcuni videogiochi si sente una 
allegra musichetta mentre il giocatore sta sparando 
a delle feroci navi spaziali, l'illusione della 
contemporaneità é perfetta ma é, appunto, una 
i1lusione. 

Il computer, in questi casi, esegue sempre una 
operazione alla volta, ma in modo talmente veloce 
che a noi umani sembrano simultanee; questa tecnica 
si ottiene manipolando l'interrupt. 

Ogni processore contiene almeno una linea di 
interrupt, nella quale sono codificate tutta una 
serie di operazioni: per esempio, mentre nel 
Commodore lampeggia il cursore e la macchina aspetta 
istruzioni, vengono eseguile seguenti operazioni: 
la scansione della tastiera, la rilevazione dell' 
avvenuta pressione del ,tasto di 
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stop, il controllo delle periferiche, 1' 
aggiornamento degli orologgi interni, il refresh 
delle memorie e del video ed altre ancora; tutte 
queste routine inserite nella linea di interrupt 
vengono eseguite ogni sessantesimo di secondo. 
Esistono, nel Commodore, due interrupt: 

IRQ(interrupt request) 
ed NMI(not mascherable interrupt). 

IL secondo tipo di interrupt gestisce operazioni 
particolari di competenza stretta del sistema 
operativo, il primo invece é facilmente manipolabile 
via software in quanto rappresentato da un vettore a 
due bytes modificabile a piacimento. 

Il vettore a cui facevamo cenno é locato a 788 
($0314) ed 799 ($0315), al solito modo, byte basso e 
byte alto. 

Per alterare il vettore di interrupt bisogna seguire 
una ben determinata procedura, vediamola: 

Calcolare il byte basso e il byte alto dell' 
indirizzo dove inizia la routine da inserire nella 
linea di interrupt nel seguente modo: dividere 

l'indirizzo per 256 e prenderne la parte intera, 
questo numero rappresenta il byte basso e va pokato 
nella locazione 788, poi prelevare il resto della 
divisione precedente e moltiplicarlo per 256 questo 
numero va pokato nella locazione 799 e rappresenta 
il byte alto del' indirizzo della nostra routine. 
Adesso, la nostra routine inserita nell' interrupt, 
verrà eseguita ogni sessantesimo di secondo. 
Naturalmente, quando si vanno a pokare il byte basso 
e il byte alto che rappresentano il nuovo indirizzo 
della nostra routine, quest' ultima dovrà trovarsi 
al suo posto ! ! ! ciò vuol dire che la routine andrà 
assemblata prima di eseguire le due poke, pena il 
blocco del sistema e la perdita di tutto il lavoro 
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fatto fino al quel momento. 

- La routine va assemblata segnalando al sistema 
operativo che stiamo inserendo qualcosa nella linea 
di interrupt; questo si ottiene con 1' istruzione 
SEI, ed alla fine bisognerà comunicare che é 
necessario rimettere a posto la normale linea di 
interrupt, cosa che si ottiene con 1' istruzione 
RTI . 

La routine deve necessariamente terminare con un JMP 
alla locazione $EA31 per potere continuare ad 
eseguire tutte le normali operazione concatenate 
alla* linea dell' interrupt; in pratica siamo 
riusciti ad inserire una routine nella normale 
catena di routine gestite dall' interrupt ed é 
quindi necessario non spezzare questa catena, pena 
spiacevoli risultati. 


Facciamo un esempio, creiamo un programma in 
linguaggio macchina che incrementi, seguento il 
ritmo dell' interrupt cioè ogni sessantesimo di 
secondo, il colore dello schermo: 


7000 SEI serve a disinserire i normali 
interrupt ed informa il sistema operativo che una 
nuova routine sta per essere inserita. 

7001 LDA *$0D carica nell' accumulatore il 
valore del byte basso dell' indirizzo dove inizia la 
nuova routine da inserire, questo indirizzo é $700D. 
7003 STA $0314 deposita 1' accumulatore nel 
vettore di interrupt che contiene il byte basso, in 
pretica equivale ad eseguire una poke nella 
locazione 788. 

7006 LDA *$70 carica nell' accumulatore il 
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valore del byte alto dell' indirizzo che codifica la 
nuova routine. 

7008 STA $0315 e lo deposita nel vettore di 
interrupt che contiene il byte alto completando 1' 
operazione di aggiornamento del vettore. 

700B CLI istruzione complementare al 
SEI, viene, infatti, informato il sistema operativo 
che si siamo appena usciti da una situazione di 
gestione dell' interrupt. 

700C RTS si ritorna al basic. 

700D INC $D021 questa èia locazione $700D 
dove inizia la nuova routine, il comando serve ad 
incrementare di uno fino al massimo numero possibile 
che é 255 la locazione $D021 che serve a fare 
variare il colore dello sfondo. 

7010 JMP $EA31 infine il necessario salto 
alla prossima routine di interrupt che é locata a 
$EA31 per non interrompere la catena di routine 
inserite nella linea dell' interrupt. 

Con queste tecniche, si possono realizzare effetti 
sorprendenti e protezioni quasi inespugnabili, in 
particolare modo autorun che si autoproteggono dalle 
intrusioni esterne, oppure sempre tramite interrupt, 
il programma chiuso, controlla se in memoria risiede 
un programma estraneo ad esempio un monitor, ed in 
questo caso si autodistrugge. 

Vedremo qui di seguito come fare a neutralizzare 
queste ed altre protezioni basate su questo 
principio. 

Il segreto sta nel non fare caricare il programma 
nelle giuste locazioni, cioè, il programma 
funzionerà, protezione compresa, solo se al momento 
del caricamento verrà allocato nelle giuste 
posizioni. 

Ma come fa il programma a sapere dove allocarsi ?, 
semplice, questo dato é codificato nel* HEADER. 

Ma se riusciamo a modificare questa parte di header 
il 
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gioco é fatto, infatti possiamo fare caricare il 
programma in qualunque parte della memoria con il 
risultato di neutralizzare tutte le protezioni 
inerenti 1' interrupt; non dimentichiamo che questo 
tipo di protezione resta efficace solo se il 
programma durante il caricamenjo é correttamente 
allocato. 

Questo risultato si può ottenere usando il programma 
'rilocatore' il cui listato é contenuto in questo 
libro. 

Vediamo, esattamente la procedura da seguire: 

- Caricare il programma 1 rilocatore 1 e lanciarlo. 

- Inserire nel drive il disco _ che contiene il 
programma da copiare. 

Tramite il programma rilocatore, variare 1' 
indirizzo di partenza e posizionarlo, ad esempio, a 
2049 (inizio del testo basic) annotando, però, il 
valore originale. 

- Spegnere il sistema e riaccenderlo. 

- Caricare il programma monitor rilocato a 49152 e 
lanciarlo 

- Disassemblare il programma, prestando particolare 
attenzione se vengono variate le locazioni dove 
risiede il vettore dell' interrupt. 

- Se viene riscontrata la condizione di cui al passo 
precedente, mettere nelle locazioni dell' interrupt 
viste in precedenza il giusto valore e cioè $EA31, 
mettendo nella prima locazione il byte 31 e nella 
seconda il byte EA. 
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- Registrare nuovamente sempre da monitor il 
programma su disco. 

- Spegnere il sistema e riaccenderlo. 

- Caricare il programma rilocatore e rimettere il 
punto di partenza al valore originale 
precedentemente annotato. 

Il programma é ora sprotetto e pronto per essere 
copiato. 

Dalla manipolazione di questi registri possono 
originarsi molte brutte sorprese; é, infatti, cosa 
molto frequente causare il blocco del sistema e 
perdere 1' intero programma oppure rovinare il 
programma stesso, é sempre consigliabile eseguire 
delle copie di sicurezza del vostro lavoro, state 
sicuri che non é tempo perduto. 



48 


ORGANIZZAZIONE DEI DISCHETTI PER DRIVE 1541 


Il dischetto del drive 1541 gestito da un Commodore 
64, é suddiviso in un numero standard di tracce pari 
a 35, ed un numero variabile di settori che va da 21 
settori per le tracce più esterne a 17 settori per le 
tracce interne. 

Il sistema operativo all' atto della formattazione 
del dischetto organizza una directory, dove sono 
memorizzati tutti i nomi dei file contenuti nel 
dischetto; inoltre viene organizzata una area del 
dischetto come BAM che vuol dire block availability 
map, cioè mappa di disponibilità dei blocchi. 

Tutta questi dati vengono allocati nella traccia 18 
che, quindi, non risulta disponibile per la 
memorizzazione dei dati. 

I blocchi in totale, esclusi quelli della traccia 18, 
sono 664 ognuno di 256 bytes. 

Qui di seguito una tabella, che mostra la 
distribuzione dei blocchi nelle varie traccie: 

TRACCIA SETTORI 


da 1 a 17 21 
da 18 a 24 19 
da 25 a 30 18 


da 31 a 35 


17 
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LA BAM DEL DRIVE 1541 


La barn indica dove esiste disponibilità di blocchi 
nel dischetto; in altre parole, prima di scrivere un 
programma su disco il sistema operativo si incarica 
di controllare se su disco esiste lo spazio 
sufficiente a contenerlo ed eventualmente, quali sono 
i blocchi liberi dove allocarlo, tutto questo, al 
fine, di rendere impossibili sovrapposizioni di dati 
sul disco. 

La barn viene aggiornata dal sistema operativo ogni 
volta che viene compiuta una operazione rivolta al 
disco, come una concellazione un salvataggio ecc. 
ecc . . 

Soltanto i comandi di lettura non provocano nessun 
aggiornamento della barn. 

Vediamo, ora, come é organizzata la barn nella traccia 
18 settore 0 di qualunque dischetto formattato dall' 
unità dischi 1541: 

BYTE 0 contiene $12 traccia e settore del primo 
BYTE 1 contiene $01 blocco della directory 
BYTE 2 contiene $41 codice ascii della A 
BYTE 3 contiene $00 non usato 

BYTE 4-143 bit map dei blocchi liberi, un 1 indica 
blocco occupato ed uno 0 indica un blocco libero. 
Alcune directory di programmi commerciali risultano 
pericolosamente alterate proprio nella barn, dico 
pericolosamente perché il trucco consiste nel 
disallocare nella barn i blocchi già occupati dal 
programma, mettendo a 0 i relativi byte della barn; 
chiaramente un' operazione di save su quel dischetto, 
provocherà un disastro in quanto, ci sarà 

sicuramente una sovrapposizione di dati con la 
conseguente distruzione del programma'originario. 
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Queste protezioni sono veramente 'cattive' in quanto 
penalizzano fortemente chi compie certe operazioni 
senza particolari intenzioni piratesche ma solo per 
ingenuità. 
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LA DIRECTORY 


La directory é contenuta nella traccia 18 sotto la 
barn e contiene le seguenti’ informazioni: 

- Nome del disco 

- Identificatore del disco (ID) 

- tipo di sistema operativo per il disco (DOS) 

- Nomi dei file 

- Tipi dei file 

- Blocchi occupati da ogni file 

- Blocchi liberi nel dischetto 

Sul dischetto, per motivi di spazio, possono essere 
allocati solo 144 file differenti. 

Vediamo, ora, come sono organizzati nel disco i byte 
della traccia 18 settore 0 che seguono la barn, cioè 
dal 144 esimo in poi sino al 255 esimo: 

BYTE 144-161: 

Questi byte contengono il nome del disco che viene 
assegnato all' atto della formattazione. 

I caratteri possono essere al massimo 16, se sono di 
meno il rimanente spazio viene riempito con spazi 
shiftati 

BYTE 162-163: 

Questi due bytes contengono 1' identificatore del 
dischetto che viene assegnato all' atto della 
formattazione e, vedremo si trova su tutte le tracce 
per operazioni riservate al sistema operativo. 

BYTE 164: 

Questo byte contiene uno spazio shiftato codice $A0. 


BYTE 165-166: 
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Questi bytes contengono i caratteri ascii del "2A" 
che compare in alto a destra nella directory, ed 
indica il tipo di unità dischi adoperata. 

BYTE 167-170: 

In questi byte sono contenuti soltanto spazi 

shiftati. 

BYTE 171-225: 

Questi bytes non sono adoperati dal dos. 

Ecco, qui di seguito, una piccola routine che 
controlla il nome del disco. 

Facendo partire il programma, viene caricato il nome 
del disco nella variabile DN$, per essere, 
eventualmente, testato. 

Questa routine rappresenta una forma di protezione 
per alcuni programmi su disco, infatti, questi 
programmi smettono di funzionare se si prova a 
cambiare nome al disco, e la protezione é composta da 
una routine simile a questa che se non riscontra il 
nome giusto arresta il programma. 

Usatela come credete, e se la trovate inserita in un 
programma commerciale, state tranquilli che lì gatta 
ci cova. 

100 OPEN 15,8,15,"IO" 

110 OPEN 2,8,2,"§" 

120 PRINT §15,"B-R"; 2 ; 0;18;0 
130 PRINT §15,"B-P"; 2 ; 144 
140 DN$="" 

160 F0R I = 1 T0 16 
170 GET §2,X$ 

180 IF ASC(X$)=160 THEN 200 
190 DN$=DN$+X$ 

200 NEXT 
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210 CLOSE 2 :CLOSE 15 

Naturalmente, come sempre il carattere § deve essere 
sostituito con il caratteri cancelletto del 
Commodore. 
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IDENTIFICATORE ID 


L' identificatore é composto da due caratteri e viene 
dichiarato, dall' utente, all' atto della 
formattazione. 

Il dos controlla 1' identificatore ad ogni operazione 
di input output rivolta al dischetto, per vedere se 
il dischetto é stato sostituito nel frattempo. 

Se, tramite la ID, il dos si accorge che il dischetto 
é stato sostituito, carica la barn del nuovo dischetto 
in mémoria. 

In questo modo il drive ha sempre la barn del 
dischetto che é inserito in quel momento, in memoria; 
ciò snellisce la procedura di aggiornamento della 
directory. 

Evidentemente, per quanto detto, é utile lavorare con 
dischetti che contengsno sempre una id diversa, ma 
questo, per vari motivi, non é sempre possibile. 
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BACK-UP 


Per back-up si intende un programma in grado di 
copiare per intero un disco. 

Naturalmente 1' operazione risulta semplice se il 
disco in questione contiene programmi non protetti in 
un certo modo, se così non é 1' operazione, pur 
disponendo di un back-up diventa difficoltosa. 

Un programma può essere protetto nel migliore dei 
modi ma se io scrivo un back-up che legge byte per 
byte il programma da disco, come potrebbe fare una 
normale operazione di lettura, e lo riversa, sempre 
byte per byte su di un altro disco protezione 
compresa, ho aggirato 1' ostacolo della protezione; 
sembra facile, ma i programmatori che studiano 
protezioni, oltre che proteggere il programma 
proteggono anche il disco da copie illegali. 

Questi tipi di protezione sono molto complessi e 
richiedono una perfetta conoscenza sia del sistema 
operativo del calcolatore che di quello del drive. 

Uno dei metodi più usati, si basa sulla produzione 
artificiale di un errore durante la lettura, errore 
che viene provocato su una traccia e su un settore 
specifico del disco. 

L' errore generato viene controllato e gestito dal 
programma protetto; in genere se viene riscontrato 1' 
errore previsto dal programmatore, il caricamento del 
programma va a buon fine altrimenti succedono le cose 
più strane, come la formattazione del dischetto o il 
blocco del sistema oppure ancora la distruzione del 
programma stesso secondo algoritmi molto complessi e 
sofisticati. 

In genere il programmatore opera nella seguente 
maniera per proteggere un suo programma compreso il 
disco: 
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- Registra il programma sul disco 

- Esamina le tracce del disco con un programma simile 
ad all disk contenuto nel libro, e ne individua una 
vuota 

- Su questa traccia produce un errore con programmi 
simiìi a genera 22 contenuto nel libro. 

- Inserisce nel programma da proteggere una routine 
che verifica 1' avvenuto riscontro dell' errore 
durante il caricamente; se 1' errore si é verificato 
il programma parte regolarmente, altrimenti no 

Il programma così protetto, quando viene caricato; 
funziona nella seguente maniera: 

- Si richiama il programma con LOAD"NOME",8,1 

- Parte il caricamento ad un certo punto del quale il 
programma va a testare la traccia con 1' errore, si 
sente un rumore nel drive come se si stesse 
formattando il dischetto in effetti é la testina che, 
per un comando del sistema operativo, viene forzata a 
fondo corsa fino a sbattervi ripetutamente 

Viene generato 1' errore che produce 1' effetto 
voluto. 

Se si tenta di copiare con un back-up, un programma 
siffatto accadono le seguenti cose: 

- Si carica in memoria il back-up e lo si lancia 

- Il back-up comincia a leggere traccia per traccia 
settore per settore tutto il disco 
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- quando si arriva alla traccia rovinata che contiene 
1' errore il back-up si arresta, segnala 1' errore 
all' operatore con un codice che varia in funzione 
dell* errore generato, e salta la traccia continuando 
a copiare o si blocca completamente; in ogni caso la 
traccia che contiene 1' errore non é stata 
riprodotta, il disco é incompleto. 

Se si tenta di fare partire il programma così 
copiato, al momento che il programma testa la traccia 
per constatare la presenza dell' errore, naturalmente 
non lo trova e va in tilt. 

Questo metodo di protezione é molto efficace, ma con 
un pò di pazienza e con gli strumenti giusti si può 
arrivare ad ottenere buoni risultati, vediamo come: 

- Caricare il programma "esaminaerrori" e lanciarlo. 

- Introdurre nel drive disco da copiare. 

Analizzare tramite 1' opzione 1 o la 2 del 
programma "esaminaerrori" il disco ed annotarsi le 
tracce in cui compare una segnalazione di errore. 

- Spegnere il sistema e riaccenderlo, compreso il 
drive. 

- Caricare il back-up veloce ed eseguire una copia 
del dischetto protetto ignorando gli eventuali 
messaggi di errore che il back-up fornisce all' 
utilizzatore. 

- Spegnere e riaccendere il sistema, compreso il 
drive. 

- Caricare il programma "copiatracce" e lanciarlo. 
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- Copiare tramite il programma "copiatracce" le 
tracce 'incriminate' dal disco originale a quello di 
copia. 

Se tutto é stato eseguito correttamente la copia 
dovrebbe essere uguale in tutto e per tutto all' 
originale, si ce ne può sincerare mandando in 
esecuzione il programma appena copiato. 

Se ancora non si riesce a far partire la copia, 
conviene ritentare 1* intero procedimento e se ancora 
non si dovesse ottenere il risultato voluto é 

probabile che il disco contenga qualche altro sistema 
di protezione . 

Se invece tutto é andato bene, siamo riusciti a 
copiare il nostro programma, ma non a sproteggerlo, 
nel senso che abbiamo si la copia ma siamo sempre 
vincolati alle traccie che contengono gli errori. 

Per sproteggere veramente il programma, bisogna 

eliminare completamente questa condizione; per fare 
ciò occorre molta esperienza di programmazione in 
linguaggio macchina e bisogna conoscere molto bene il 
sistema operativo del drive, in fondo la copia é 
stata fatta, ci possiamo contentare anche di questo. 
Per i curiosi, spero la maggior parte di voi, dirò 
che esiste nel programma una routine che si occupa di 
gestire 1' errore generato e che prende i 
provvedimenti del caso se questo errore non viene 
riscontrato in fase di caricamento. 

Eliminando questa routine abbiamo eliminato la 
protezione che ci ha fatto tanto lavorare, il 
problema é riconoscere la parte di programma dove é 
codificata questa routine. 

Per individuare la sezione che si occupa dell' 
errore, bisogna esaminare come si comporta il 
programma quando si deve difendere contro una copia 
illegale, ad esempio, alcuni programmi se non 



59 


riscontrano 1* errore nelle copie si autocancellano 
tramite un reset provocato da un salto alla locazione 
64738, lo stesso effetto si può ottenere da basic 
digitando, appunto, SYS 64738. 

Per individuare il punto critico bisognerà cercare 
all' interno del programma i due bytes che compongono 

I 'indirizzo del reset e da lì seguire il percorso 
che il programma ci indica tramite i vari JMP o JSR. 
Provateci, ma non scoraggiatevi se le prime volte 
sembra difficile. 

Per alcuni tipi di errore basta la semplce copiatura 
con un back-up il quale in alcuni casi riesce a 
trasferire 1' errore anche alla copia é il caso dell' 
errore con codice 23 che viene trasferito 
perfettamente dal back-up veloce, provare per 
credere. 

Nei casi più ostinati può essere utile provare ad 
eseguire una copia con il back-up blocchi il cui 
listato si trova nel libro, il quale anche se un pò 
più lento del back-up veloce vi stupirà per le sue 
splendide virtù. 

Se dopo tutti questi tentativi, ancora, non siete 
riuscire a copiare il vostro disco, vuol dire che, 
molto probabilmente esso contiene delle intertracce, 
o delle tracce al di fuori delle normali 35. 

Questo é reso possibile dal fatto che le prime tracce 
del disco, contengono un nuovo sistema operative 

diretto al drive, in grado di leggere tracce o 
intertracce che normalmente verrebbero rifiutate. 
Quando si tenta di copiare questo disco con un back- 
up tradizionale la testina del drive nei suoi 
spostamenti segue le tracce standard e procede con un 
certo passo, ignorando tutte le tracce che restano al 
di fuori da questi spostamenti. 

II back-up in questo caso dovrebbe scandire tutta la 
superficie del disco, con soluzione di continuità 
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arrestandosi non appena viene riscontrata una traccia 
piena di dati, copiandola. 

Il super back del libro assolve questi compiti. 

Per motivi tecnici non é stato possibile inserire 
come listato, il programma di altri tre back-up 
copiatutto e di altre utility per procedere alla 
sprotezione dei dischi; questi programmi fanno, però 
parte del dischetto che si può richiedere alla casa 
editrice. 
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PROCEDURA DI AUTOSTART 

Per autostart si intende un programma che all' 
accensione del computer viene automaticamente 
caricato in memoria ed eseguito senza alcun 
intervento dall* esterno. 

Questa esigenza nasce per due motivi: 

- Rendere piu' confortevole 1' uso dei programmi in 
quanto vengono eliminate le procedure di caricamento 
e relativo lancio dei programmi da utulizzare 

- Rendere efficaci le varie protezioni disseminate 
nel programma stesso e che diventano attive solo dopo 
che il programma e' stato lanciato. 

Un tipico esempio dì procedura autostart é 
rappresentata dalle cartucce rom che si inseriscono 
nella porta che si trova dietro il Commodore e che 
contengono del software. 

Queste cartucce vanno inserite a computer spento e 
vengono attivate quando il computer viene acceso, con 
il risultato che il programma viene caricato ed 
eseguito senza che l'operatore possa intervenire 
bloccando questo processo. 

Nel Commodore 64 non si possono realizzare procedure 
di questo tipo, se il programma risiede su nastro o 
su disco, si può', tuttavia simulare, tale 
comportamento via software con appositi programmini i 
quali devono essere scritti necessariamente in 
linguaggio macchina e devono risiedere in parti 
specifiche della memoria. 

Il programma che seguirà' sara' in grado di emettere 
un run quando viene eseguito un load su disco o su 
nastro. 

Diamo ora, prima di esaminare il programma, uno 
sguardo al sistema operativo del Commodore 64 ed in 
particolare rivolgiamo la nostra attenzione su di una 
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zona di memoria particolare, quella compresa tra 
$02A7 ed $0303 (i due numeri sono espressi in 
notazione esadecimale lo si può notare dal simbolo $ 
che precede il numero). 

Le locazioni comprese tra $02A7 ed $02FF sono a 
disposizione dell' utente, ed é in queste locazioni 
che noi assembleremo la nostra routine che 
provocherà' 1' autostart al programma desiderato. 

E' di fondamentale importanza usare queste locazioni 
di memoria in quanto pochi bytes più sotto si trovano 
due locazioni le quali contengono 1' indirizzo della 
routine di warm start. 

La routine di warm start viene eseguita dal sistema 
operativo ogni volta che il computer ha terminato una 
operazione, ad esempio, alla fine di un caricamento 
eseguito con load viene eseguita questa routine e 
successivamente quella che fa' comparire il familiare 
READY con il cursore lampeggiante. 

Poiché l'indirizzo di inizio del warm start é 
conservato in due locazioni, già viste che risiedono 
in ram, i contenuti di queste ultime possono essere 
modificati a piacere facendoli puntare, ad esempio, 
all' inizio della nostra routine, così si potrà 
caricare in memoria, contemporaneamente, la routine 
ed il vettore modificato ed ottenere che alla fine 
del load venga automaticamente eseguita la routine in 
questione. 

Vediamo ora come scrivere il programma da autostart: 

- Caricare il programma MONITOR del libro con load 
"MONITOR",8,1 da disco e load "MONITOR",1,1 da 
cassetta; 

- Digitare sys 49152 il programma MONITOR dovrebbe 
partire ; 

- Entrare in fase di assemblaggio digitando A 02A7 


dove al posto dei puntini bisognerà mettere il codice 
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da assemblare 

- Premere Return, se tutto va bene il dato viene 
accettato e compare automaticamente 1' indirizzo 
della prossima locazione per il prossimo dato; e così 
via 

- Alla fine del caricamento PRIMA DI FARE PARTIRE IL 
PROGRAMMA salvarlo su disco o su nastro con la 
seguente sintassi: save" BOOT" 08 02A7 0304 per il 
disco per la cassetta cambiare il codice 08 con 01 

- Ora e soltanto ora provare il programma 
Esaminiamo il listato in codice assembler 


02A7 

0F 08 00 0A 

93 

Codici ASCII linea basic 

02 AC 

22 42 2A 22 

2C 

10 LOAD "B*",8,1 

02B1 

38 2C 31 00 

00 00 

+ + +-+ + + 

02B7 

LDA *$08 


Mettere 01 PER NASTRO 

02B9 

TAX 


Assegna numero file 

02B A 

LDY *$01 


periferica e comando 

02BC 

JSR $FFBA 


secondario 

+ + +-+ + + 

02BF 

LDA *$02 


Lunghezza del nome del 

02C1 

LDX *$F3 


file e locazione di 

02C3 

LDY *$02 


inizio del nome 

02C5 

JSR $FFBD 


predispone caricamento 

+ + +-+ + + 

02C8 

LDA *$00 


Disabilita tutti i 

02C A 

STA $9D 


messaggi ed inizia il 

02CC 

JSR $FFD5 


caricamento 

+ + +-+ + + 

02CF 

STX $2D 


salva 1' indirizzo di 

02D1 

STY $2E 


fine del basic 

+ + +-+ + + 

02D3 

LDA *$83 


Riposiziona il vero 
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02D5 

STA 

$0302 

Warm Start al 

02D8 

LDA 

*$A4 

valore originale 

02DA 

STA 

$0303 


02DD 

LDX 

*$06 

+ + +-+ + + 

Nel buffer di tastiera 

02DF 

STX 

$C6 

mette CLEAR+ RETURN e 

02E1 

LDA 

$02EC , X 

RUN + RETURN 

02E4 

STA 

$0276,X 


02E7 

02E8 

DEX 

. BNE 

$02E1 


02EA 

JMP 

$(0302 ) 

+ + +-+ + + 

Torna al Basic 

02ED 

43 

CC OD 

+ + +-+ + + 

Codici che servono al 

02F0 

52 

D5 OD 

ciclo di lettura di sopra 

02F3 

20 

20 20 20 20 

+ + +-+ + + 

20 20 nome del programma 

0300 

8B 

E3 

+ + +-+ + + 

0302 

B7 

02 

Vettore da modificare 


Notare che lo star (*) che compare nel listato, va 
sostituito nel Commodore con il simbolo del 
cancelletto (SHIFT+3). 

Nei tratti in cui non esistono codici assembler 
bisogna digitare direttamente i codici, in quanto 
questi non corrispondono a vere istruzioni ma a dati; 
ecco come si opera: 

-da MONITOR digitare M . dove i puntini 

rappresentano la locazione di inizio e premere 
return, comparirà' una fila di otto codici 

- Portarsi con i tasti cursore sul primo codice e 
digitare il dato voluto poi spostarsi sul successivo 
fino all' ottavo dato, premere return e passare agli 
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otto dati successivi. 

Salvata la routine di autostart con il nome di BOOT, 
si deve procedere a salvare di seguito il programma 
da fare partire in autostart. 

Se tutto é stato eseguito correttamente, chiamando il 
caricatore BOOT, questo automaticamente deve 
caricarsi il programma successivo. 

Senza dubbio questa é già una forma di protezione, 
per la verità poco valida, infatti, basta premere il 
tasto stop perché il programma si arresti diventando 
vulnerabile. 

Si può inoltre caricare direttamente il programma 
senza passare per il blocco caricatore e poi salvarlo 
come si vuole. 

Per rendere efficace questo sistema di protezione 
bisogna agire su due fronti: 

- Fare in modo che il programma sia caricato e quindi 
lanciato, solo tramite il caricatore; in altre 
parole, se il programma viene caricato da solo, deve 
autodistruggersi ; 

- Fare in modo che il programma una volta partito in 
autorun attraverso il caricatore, non possa piu' 
essere bloccato in nessun modo, e se accidentalmente 

10 fosse, il listato deve essere incomprensibile. 
Vediamo, ora, come realizzare questi due obbiettivi: 
Per rendere obbligatoria la procedura di autostart, 

11 programma deve essere caricato solo tramite il 
caricatore che contiene la routine di autostart 
appena vista. 

Per fare ciò bisogna inserire nel caricatore alcuni 
controlli che poi devono essere riscontrati nel 
programma madre. 

Ad esempio, se si inserisce nel caricatore il 
seguente controllo: 

LDA *$FF 
STA $0400 
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che vuol dire carica nell' accumulatore il valore $FF 
e depositalo nella locazione $0400 (che equivale a 
fare da basic POKE $0400,$FF), alla fine del 
caricamento la locazione $0400 conterrà il valore 
$FF . 

Il programma madre quando parte, dovrà verificare 
questa condizione con una linea basic di questo tipo: 
IF PEEK($0400) diverso da $FF THEN SYS 64738 
così se il caricamento é avvenuto tramite caricatore 
la condizione non viene verificata ed il programma 
avra' un regolare svolgimento; se, invece il 
caricamento é avvenuto senza il caricatore la 
condizione viene verificata ( perché la locazione 
$0400 non contiene $FF ) ed il programma si 
autodistrugge con il salto alla routine di reset che 
parte da 64738. 

Naturalmente si possono inserire altri controlli o 
più condizioni rendendo più efficace la protezione. 

A titolo di esempio si può' adoperare un metodo di 
protezione usato con successo da molte case di 
software, inserendo dei caratteri speciali nel nome 
assegnato al programma stesso in fase di 
registrazione si possono generare dei codici 
mascherati che vengono successivamente testati dal 
programma madre, vediamo come: 

Quando viene registrato un programma su nastro, il 
sistema operativo provvede a creare un blocco di dati 
preliminare al programma stesso; questo blocco di 
dati prende il nome di HEADER. 

Nell' header vengono memorizzati in sequenza il tipo 
di file (programma sequenziale programma non 
rilocabile) 1' indirizzo di partenza del programma, 
1' indirizzo dell' ultima locazione del programma, ed 
infine i caratteri ASCII che rappresentano il nome 
del programma. 

Quando si esegue il load, tutti i dati dell header 
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vengono trasferiti nella memoria del calcolatore 
nelle seguenti locazioni di memoria: da $033C a $03FB 
questo spazio di memoria viene definito come BUFFER 
di cassetta. 

Il nome viene allocato esattamente, a partire dalla 
locazione $0341. 

Se si salva un programma nella seguente maniera, ad 
esempio, 

A$="(colore giallo)(colore originale) name prog" e 
poi 

SAVE A$ 

salveremo su nastro il programma name prog, ma con il 
nome preceduto da due caratteri che all' atto della 
stampa sullo schermo non saranno visibili, poiché il 
secondo carattere riporta il colore come era all' 
origine. 

Controllando 1' esistenza del codice 158 (colore 
giallo) nella locazione $0341 il programma madre 
sapra' se é stato caricato dal regolare caricatore o 
no . 

Adesso bisogna fare in modo che il programma una 
volta lanciato non sia più arrestabile. 

Qui di seguito vengono elencate una serie di 
locazioni che contengono gli indirizzi di partenza di 
essenziali routine del sistema operativo, vediamole: 

- $0306 $0307 Vettore di list 

- $0316 $0317 Vettore di brk 

- $0318 $0319 Vettore di nmi e restore 

- $0328 $0329 Vettore di stop 

- $0332 $0333 Vettore di save 

Questi vettori risiedono in ram e possono essere 
alterati a piacere provocando degli effetti a volte 
incontrollabili. 

Il vettore di list punta alla routine omonima che 
risiede in rom, variando le locazioni di puntamento, 
si può ingannare il sistema operativo' e fare in modo 
che ogni volta che viene richiesto il list di un 
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programma il sistema operativo salti, o ad una 
routine appositamente scritta dall' utente, oppure 
in un posto della memoria casuale, provocando il 
blocco del sistema. 

I vettori di brk e di nmi(Not Mascherable Interrupt) 
funzionano come quello di list e, se alterati, 
servono a bloccare le funzioni dei tasti run/stop e 
restore. 

Per proteggere un programma che parte in autorun si 
opera in questo modo: 

- Caricare il programma Monitor rilocato a partire da 
$C000 '(49152) e farlo partire; 

Con 1' istruzione F (Fili) riempire tutta la 

memoria di 00 con F 0801 9FFF 00; 

- Caricare da monitor il programma da proteggere con 
1' istruzione L "NOME" 08 oppure 01; 

Con 1' istruzione M 0801 visionare tutto il 

programma fino alla fine, che si può individuare da 
tutta la serie di zeri creata al passo precedente, ed 
annotare questo valore; 

- Assemblare con le modalità già viste, la routine di 
autorun nelle locazioni già eseminate; 

- con il comando M del monitor modificare a piacere 
tutti i vettori di salto tranne quello relativo al 
SAVE ; 

Registrare con il monitor tutto il segmento di 
memoria da $02A7 alla fine del programma, con la 
seguente istruzione: S "NOME" 08 02A7 FINE. 

A questo punto spegnere tutto e provare a caricare il 
programma creato, il quale dovrà partire non appena 
caricato, in modo automatico e non dovrà essere 
vulnerabile alla pressione dei tasti RUN/STOP e 
RESTORE. 
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SPROTEZIONE AUTORUN 


Un modo molto elegante per togliere qualsiasi 
autorun da disco, consiste nell 1 ingannare il 
programma facendogli credere che 1' autorun non 
esiste !. 

Per parlare di questo metodo, facciamo qualche 
richiamo ad un argomento già trattato nel capitolo 
dedicato alla gestione dei dischi. 

Quando viene registrato un programma su disco, esso, 
viene spezzettato in blocchi di lunghezza pari a 256 
bytes. 

Di questi 256 bytes, solo 254 sono a disposizione 
del programma, perché gli altri due sono a 
disposizione del D.O.S. del drive; in questi due 
bytes risiedono due importantissime informazioni, il 
primo byte contiene la traccia del prossimo blocco 
di dati e il secondo il settore. 

Se il primo byte é zero, vuol dire che si tratta 
dell 1 ultimo blocco di dati per quel programma ed in 
questo caso, il byte successivo indicherà la 
posizione dell 1 ultimo byte del programma all' 
interno di quel blocco. 

Quando viene letto un programma con un normale LOAD, 
il dos legge uno per uno tutti i bytes del programma 
tranne i primi due di ogni blocco che, come si é 
visto, servono per concatenare i vari blocchi fra di 
loro. 

Il terzo ed il quarto byte del programma, indicano 
al sistema operativo dove allocare il programma, 
cioè a partire da quale locazione; se il programma 
in questione é un programma scritto interamente in 
basic, possiamo essere certi che i valori 
corrispondenti al terzo e quarto byte saranno $01 e 
$08, in quanto il basic inizia alla locazione $0801. 



70 


Se la locazione di inizio del programma é minore di 
$0801 o 2049 in decimale, vuol dire che, quasi 
sicuramente questo programma é protetto da un' 
autorun e da altre diavolerie. 

Ed ecco 1' idea: basta, durante la fase di load, 

eliminare tutto quello che si trova sopra la 
locazione 2049 ! . 

Provate per credere, questo metodo funziona quasi 
sempre e con ottimi risultati; per quelle rare volte 
che non va, esiste un altro metodo un poco più 
complesso che vedremo più avanti. 

Ecco ora il listato del programma che consente la 
copia con protezioni ed autorun: 

10 INPUT" NOME DEL PROGRAMMA DA SPROTEGGEREN0$ 

20 INPUT" NOME PROGRAMMA SPROTETTONS$ 

30 OPEN 2,8,0,N0$ 

40 OPEN 3,8,1,NS$ 

50 REM ************************************ 

60 REM ************************************ 

70 REM *** LEGGE I PRIMI DUE BYTES *** 

80 REM ************************************ 

90 GET§2,A$,B$ 

120 REM SCRIVE SUL FILE IN USCITA 
140 PRINT§3,CHR$(1) CHR$(8); 

190 M=ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256 
240 IF M (magg ) 2048 THEN 1040 
250 FOR X=M TO 2048 
260 GET§2,A$ 

270 NEXT 

1040 GET§2,A$:IF ST (diverso) 0 THEN 

PRINT§3,A$; :CL0SE 2:CL0SE 3 : END 

1050 PRINT§3,CHR$(ASC(A$ + CHR$(0))); : GOTO 1040 

Attenzione che il simbolo § nella digitazione del 
listato sul Commodore va sostituito con il 
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cancelletto (SHIFT + 3)e le scritte fra parentesi 

(magg),(min),(diverso), vanno sostituite con i 
rispettivi segni del basic Commodore. 

L' altro tipo di protezione a cui facevo cenno 
prima, risulta un poco più laboriosa ma, 

fondamentalmente, si basa sullo stesso principio, 

solo che si evita di tosare tutto quello che c'é 

sopra la fatidica locazione 2049, in quanto alle 

volte, operare questo taglio provoca arresti al 
programma irreversibili. 

Capita sovente, che le parti che il precedente 
programma taglia contengano informazioni vitali al 
buon funzionamento del programmo stesso; in questo 
caso bisogna usare un programma diverso, contenuto 
nel libro, chiamato ' rilocatore'. 

Si procede nel seguente modo: 

- Caricare il programma rilocatore dal disco. 

- Inserire il disco che contiene il programma da 
sproteggere nel drive. 

- Fare partire il programma rilocatore ed indicare 
il nome del programma da sproteggere. 

- Viene visualizzato 1' indirizzo di partenza del 
programma, annotare questo valore. 

- Modificare 1* indirizzo di partenza con 2049, e 
registrarlo nuovamente su disco. 

in questo modo tutto il programma, compreso 
protezioni ed autorun, vengono allocati nell' area 
basic, solo che non potrà mai funzionare in queste 
condizioni, perché non allocato correttamente. 

- Caricare il programma MONITOR $C0’00 e lanciarlo 
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con SYS 49152. 

- Entrare con il comando D nel programma a partire 
dalla prima locazione ($0801). 

- Individuare la routine di autorun che in genere, é 
posta all' inizio del programma e termina con un JMP 
ad una locazione che rappresenta la SYS del 
programma. 

Togliere il JMP al programma, annotandone il 
valore e sostituirlo con due NOP ed un RTS finale, 
BADANDO DI OCCUPARE GLI STESSI BYTES. 

- Registrare il tutto su disco con un nuovo nome. 

- Ricaricare il programma rilocatore e lanciarlo. 

- Inserire il disco che contiene il programma 
modificato e registrato con il nuovo nome. 

- Modificare la locazione di partenza, che sarà 
2049, con quella originale, che si era annotata. 

Il gioco é fatto, caricare il programma, il quale 
alla fine del caricamento, se si é operato 
correttamente, non partirà in autorun, e farlo 
partire con la SYS convertita in decimale, che era 
stata eliminate nella routine di autorun. 

Se neanche questo metodo ha successo, conviene non 
perdere ulteriore tempo é usare uno dei back-up in 
dotazione e copiare tutto il dischetto. 

Si raccomanda di non lavorare mai sul programma 
originale che potrebbe rovinarsi irreparabilmente, 
ma sempre su una copia back-up funzionante. 
Naturalmente tutte queste operazioni 


sono da 
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considerare 'via software' e quindi non danneggiano 
mai il computer; al massimo si può perdere il 
programma e bisogna ricominciare di nuovo, quindi, 
niente paura a provare nuovi metodi, non succede 
nulla, anzi se nentrovate dei nuovi, fatemeli 
sapere. 

Esistono dei metodi di sprotezione che coinvolgono 
1' hardware ma ritengo, siano un tantino pericolosi 
per la vita del computer stesso, quindi, non ne 
parlerò; ed ora buon lavoro a tutti. 
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COPIATURA PROGRAMMI PC IBM 

I programmi scritti per il pc IBM e compatibili sono 
scritti sotto MS/DOS e per questo motivo possono 
girare su tutti i computer muniti di questo sistema 
operativo. 

Naturalmente le copie prodotte con i metodi appresso 
descritti, DEVONO servire solo ed esclusivamente come 
copie di lavoro ad uso strettamete personale; non 
dimentichiamo che il programma é di proprietà' della 
casa che lo commercializza, sia IBM o altro, e che 
diffondere clandestinamente un programma copiato, 
costituisce reato perseguibile penalmente. 

Fatta questa doverosa premessa veniamo al dunque: 
il sistema di protezione che viene usato sui 
programmi per pc IBM consiste nel posizionare 
determinate informazioni nonsenso nelle tracce del 
disco. 

Le informazioni nonsenso possono essere di svariato 
natura: un errore di controllo oppure un codice 

illegale o anche un dato alfanumerico in un posto 
sbagliato, tutto questo produce un blocco del drive 
durante la copia. 

Per potere effettuare delle copie funzionanti di 
programmi protetti in questa maniera, bisognerebbe 
conoscere a menadito il pc IBM come sistema operativo 
interno, mappe di memoria e architettura delle 
periferiche. 

Per evitarvi questa fatica e per mirare subito al 
sodo abbiamo pensato di scrivere un back-up che legge 
automaticamente i caratteri nonsenso e li riproduce 
fedelmente nelle tracce del disco copia. 

Alle volte basta rimuovere i caratteri nonsenso per 
rimettere a posto le cose, e il < nostro back-up 
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prevede anche questa possibilità' consentendo, di 
ottenere delle copie funzionanti e prive di errori. 

Il back-up funziona come un normale programma di 
copia e svolge automaticamente le operazioni sopra 
descritte. 



AUTO R U N 
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5 PRINT"s3 3 3 3 33R+ AUTO RUN 1.0 
10 PRINT"Q33 3 3 3 3 3 33QUESTO PROGRAMMA CREA" 

20 PRINT"Q33 3UH PROGRAMMA IN LINGUAGGIO MACCHINA" 

25 PRINT"Q3CHE PROVOCA L'AUTO START DEL PROGRAMMA" 

30 PRINT"Q3SPECIFICATO,I CUI DATI DOVRANNO ESSERE" 

40 PRINT"Q3INSERITI NEL MODO RICHIESTO." 

50 PRINT"QQ333333333SEI PRONTO ? 

(S/N)" : GOSUB10000 : IFA$="N"THENEND 

60 PRINT"qR ATTENDERE PREGO 

70 RESTORE:FORI=49152TÓ49184 :READA:POKEI,A :NEXT 

75 F0RI=679T0767 : POKEI,0 : NEXT 

80 FOR1=679 TO 749:READ X:POKE I/X=NEXT 

100 PRINT"sQQNOME DEL PROGRAMMA DA CARICARE MAX 16 

CH":INPUTNf 

105 IF LEN(N$)>16THEH100 

110 INPUT"Q3 33DALLA PERIFERICA N.";P 

120 I NPUT " QQNGME DEL LOHDER"NL$ 

122 IF LEN(NL$)>16THEN120 

125 INPUT"Q3DA SALVARE SULLA PERIFERICA N.";PL 
130 PRINT"RQ NON FERMARE IL PROGRAMMA !!! 

150 REM 

160 LE=LEN (N$) 

170 POKE 709,LE:POKE 702,P 

175 FOR 1=0 TO LE-1 : POKE750+I,ASC(MID$(N$,1+1,1)) : NEXT 
180 REM SALVATAGGIO 
190 LL=LEN(NL$) 

200 FORI=0TOLL-1 

210 POKE 49185+1,ASC(MIDf(NLf,1+1,1)) 

220 NEXT 

230 POKE 49155,PL:POKE 251,167 
240 POKE 49162,LL:POKE 252,2 
250 POKE 770,167:POKE 771,2 
260 SVS 49152 

270 POKE 770,131 : POKE 771,164 

280 PRINT"Q33333 3 3333RANCORA ? (S/N)" 
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290 GOSUB10000 : IFA$O"S"ANDR$O"N"THEN290 
300 IFR#="S"THEN70 
310 END 
980 

DATA169,0,162,0,160,255,32,186,255,169,0,162,33,160,192,32,18 
9,255,169 

985 DATA251,162,4,160,3,32,216,255,169,0,32,195,255,96 ; REM 
SRVE 

990 DATA 

169,131,141,2,3,169,164,141,3,3,169,142,141,40,3,169,230,141 

991 DATA 

41,3,169,0,162,0,160,1,32,186,255,169,0,162,238,160,2,82,189 

992 DATA 255,169,0,162,255,160,255,32,213,255,134,45,132,46 

993 DATA 

169,82,141,119,2,169,213,141,120,2,169,13,141,121,2,169,3,133 
,198,96 

10000 GET A$ : IF fl$="" THEN 10000 

10001 RETURN 
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790 PRINT"s" 

800 PRINT"3333D333]]]]]]]3 ROM COPV" 

810 PRINT"Q- M 

900 PRINT"QUESTO PROGRAMMA E' STATO ADATTATO PER-" 

910 PRINT"TRASFERÌRE LE CRRTRIDGE CHES) SU' DISCO" 

920 PRINT"AL PRIMO INPUT RISPONDERE CON LR LOCRZI" 

930 PRINT"ONE DA' DOVE SI PRESUME INIZI LO START-" 

935 PRINT"DELLA CRRTRIDGE" 

940 PRINT"AL SEC. INPUT FINE LOCAZIONE DELLA" 

950 PRINT"CRRTRIDGE E QUINDI TITOLO" 

960 PRINT"I VALORI VANNO INSERITI IN DECIMALE" 

970 PRINT"QQVALORI APPROSIMATIVI START 32767" 

975 PRINT"Q]]]333333333333]]3333END 36863" 

976 QQQQ$: IFA$=""THEN976 
985 GETA$:IFA$=""THEN985 
1000 P0KE36879,14 

1010 

PR I NT " sESTART, END, NAME " : INPUTV, W, VS •' R=540:4 ORJ=1T043 : READT : PO 
KER+J+5, T : NEXT 
1020 

DRTA169,1,162,8,160.0,32,186,255,165,0,166,49,164,50,32,189,2 

55, 1d 9,128, 133, 157, 9b 

1030 

DATA169,0,166,251,164,252,32,213,255,96,169,251,166,253,164,2 
54,82,216,255,96 

1040 T=LEN < ‘v'$ > '■ POKE0, T : U= 1 : S=256#PEEK ( 50 >+PEEK < 49 ) +T 
1050 IFV$=""THEN1070 

1060 FORJ=1TOT :POKES-J,ASC < RIGHT$ < V$,J > >:NEXT 
1070 SVS546:U=V:T=252:GOSUB1120:1FW=0THEN1090 
1080 U=W:T=254:GOSUB1120 :SVS579: END 
1090 

FQRJ=0TO5:POKER+J,PEEK<45+J>:NEXT:SVS569:FORJ=0TO5:P0KE45+J,P 
EEK<R+J) : NEXT 

1100 IFSTATUSAND48THENPRINT :PRINT"?LOAD":PRINT"ERROR"; 

1110 END 

1120 POKET,INTCU/256) : POKET-1,U-256#PEEK<T>: RETURN 
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10 REM CONVERSIONE NUMERI fl BASI DIVERSE 

20 PRI NT *'s TAB < 240 );•'INPUT "BASE DEL NUMERO DA CONVERTIRE" ; B1 
30 PRINT : PRINT ; INPUT"BASE DEL NUOVO NUMERO";B2 
40 PRINT"s" : PRINT"NUMERO BASE"; B1,"NUMERO BASE";B2:PRINT 
50 DIMA$<18) 

60 IFB1O10THENGOSUB200:GOTO80 
70 GOSUB100 : GOTO350 
80 IFB2=10THEN300 
90 GOSUB105 : GOTO350 
100 INPUT A:lFA=0THEN END 
105 X=33 

110 Q=; I NT < A/B2 ) : R= I NT ( A-B2*Q ) 

120 X=X-1 •' IFX=28 ORX230RX= 18THEN X=X-1 

125 IFR>9THEN160 

130 PRINTTABCX)"4";R 

140 IFQ>0THEN A=Q:GOTO110 

150 PRINT:RETURN 

160 PRINTTAB < X)"4";"3";CHR* <R+55): GOTO140 
200 INPUTAS : IFA$="0"THEN END 
210 N=LEN<A$) : A=0 % 

215 FOR I=NT01STEP-1 

220 C=ASC<MID$<A$,1,1)):IFCC65THEN C=C-48:GOTO240 
230 C-C-55 

240 A=A+B1t<N-I)*C : NEXT : RETURN 
300 PRINTTAB<20>"4"; A :PRINT 
350 IFB1=10THEN70 
360 GOTO60 
370 PRINT"C.BASE" 
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59900 FRINT"SNUMERO DI LINEA DI PARTENZA": FRINT"GK0-255>Q" 

59901 INPUTK*:K»VAL<K$> : POKE0,K 

59902 INPUT"sLOCAZIONE DI PARTENZA";D$ : D=VAL<D$> 

59903 PRINT"sULTIMA LOCAZIONE" : INPUTE» ■'E=VRL<E$> 

60000 IFPEEK<0)=255THENPRINT"sQQQQQQQQNUMERO DI LINEA TROPPO 
GRANDE" 

60001 IFD>ETHEHPRINT"sQQQQQ3 3 3 3 3FINE": STOP 

60002 PRINT"sQQQQQQD»"D+12" : E="E" ■' Go60000SQQ" 

60010 K=PEEK(0> :F$=STR$<K) + "DATA" +STR$<PEEK<D) "> 

60100 PRINTF$J 

60200 FORD=D+1TOD+10 

60300 K*»"/"+MID#<STR*<PEEK<D)>,2,3 ) 

60400 PRINTKf; 

60500 NEXT:POKE0 >PEEK < 0 > +1 
60510 PRINT-S" 

60520 P0KE631>13 : P0KE632 > 13:P0KE633,13 :P0KE198,3 



D. 0. S. 
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1 rem *** D.O.S. *** 

0 G0SUB196 

2 PRINT"sRMENUQQQ" 

4 PRINT"F1 HUTORUN DI UN FILE NEL DIRECTORV 
6 PRINT"F2 INIZIALIZZRZIONE 

8 PRINT-F3 COPIA CON NOME DIVERSO 

10 PRINT"F4 CANCELLA UN FILE 

12 PRINT"F5 MOSTRA IL DIRECTORV 

14 PRINT-F6 MOSTRA LO STATUS DEL DISCO 

16 PRINT"F7 CAMBIA IL NOME DI UN FILE 

18 PRINT"F8 COPIA IL MINI DOS SU ALTRO SUPPORTO 

20 PRINT"T CAMBIA NOME E ID DEL DISCO 

22 PRINT"Q FINE DEL LAVORO 

24 PRINT"QQQ0QSCEL6R PER CORTESIA : 

25 GET X$ ■I FX$= ""THEN25 

26 IFX$="9"THENG0SUB48 
28 I FX$="i "THENG0SUB86 
30‘IFX$= " f"THENGOSUB112 
32 I FX$= " j "THENGOSUB136 
34 IFX$="1"THENGOSUB170 
36 IFX*="Q"THENGOSUB100 
38 I FX*= "k"THENGOSUB184 
40 IFX$="e"THENGOSUB148 
421 FX$= "h"THENGOSUB124 
44 IFX*="T"THENGOSUB220 
46 G0T02 

48 PRINT"s"=OPEN1,8,0,"$" 

50 GET#1,R$,B$ 

52 GET#1,A$,B$ 

54 GET#1,A$,B$ 

56 C=0 • I FATO " " THENC=ASC< R$ > 

58 IFB$<>""THEHC=C+ASC< B$ > *256 

60 PR INT " R " MI D$< STR$ < C ), 2 > ; TRE< 7 ), "r "., 

62 GET#1,B$ : IFSTO0THEN78 
64 I FB$OCHR$ ( 34 > THEN62 

66 GET# 1, B$ : I FB$OCHR$ < 34 > THENPRI NTB$ ; '■ G0T066 
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68 GET#1,B$:IFB$=CHR$<32)THEN68 
70 PRINTTAB<29>;:C$="" 

72 C*=C$+B$ : GET#1> B$ '■ IFB$<>" "THEN72 
74 PRINT"R"LEFT$(C$,3> 

76 IFST=0THEN52 

78 PRINT"BLOCCHI LIBERI " 

80 CLOSE1 
82 G0SUB214 
84 RETURN 
86 PRINT"s" 

88 PRINT"INSERIRE IL DISCO DA INIZIALIZZARE" : PRINT 
90 PRINT"NOME DEL DISCO":INPUTDI* 

92 PRINT"NUMERO DI ID":INPUTEX# 

94 MR$="N."+DI *+"> " +EX$ 

96 0PEN15,8,15,MR$ 

98 CLOSE15 : MAS»"":G0SUB214 : RETURN 
100 REM 

102 PRINT"QFINE DEL LAVORO. SICURO? (S/N)" 

104 GETR$ : IFR$=""THEN104 

106 IFRt="N"THEN2 

108 I FR*="S"THENSVS64738 

110 IFR$<>"S"ORRf<>"N"THEN104 

112 PRINT"s" 

114 PRINT"NOME DEL FILE-SORGENTE "=INPUTDI* 

116 PRINT"NOME DEL NUOVO FILE ":INPUTNW* 

118 Mfl$="C : "+NW$+"="+DI$ 

120 0PEN15/8,15,MA* 

122 CLOSE15 :MA*="":G0SUB214 : RETURN 
124 PRINT"S" 

126 PRI NT "VECCHIO NOME DEL FILE" ■' INPUTDI * 

128 PRINT"NUOVO NOME DEL FILE" : INPUTNW* 

130 MA*»"R:"+NW*+"="+DI$ 

132 QPEN15,8,15,MA* 

134 CLOSE15 :MR*="":G0SUB214 : RETURN 
136 PRINT"*" 

138 PRINT"NOME DEL FILE Dfl CANCELLARE" : INPUTDI* 

140 PRINT"PREMERE -RETURN- PER CANCELLARE" : INPUTX* 
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142 MR$="S:"+DI$ 

144 0PEN15,8,15,MA* 

146 CLOSE15 : MA*= " " : G0SUB214 ’• RETURN 

148 PRIHT"sIL FILE DR FAR GIRARE PARTE CON RUN 0 " 

158 PRINT"CON UNA SVS ? SCRIVERE -R- 0 -S-" 

152 GETRf:IFA*=""THEN152 

154 IFA*="R"THEN160 

156 IFA*="S"THEN164 

158 I FA*<C> " R" ORA*<> " S " THEN 152 

160 PRINT"SCRIVI IL NOME DEL FILE" : INPUTN* 

162 LQADN*,8 : RUN 

164 PRINT"SCRIVI L'INDIRIZZO DI PARTENZA":INPUTK 
166 PRINT"SCRIVI IL NOME DEL PROGRAMMA":INPUTN1* 

168 LQADN1*,8,1 : SVSK 
170 PRINT"s" 

172 PRINT"INSERÌSCI IL DISCO-DESTINAZIONE":PRINT 

174 PRINT"PREMI -RETURN- PER COPIARE MINI DOS":INPUTX* 

176 OPEN1 >8 ,15 

178 SAVE"DOS">8 

180 CLOSE1 

182 G0SUB214:RETURN 

184 PRINT"s" : OPEN1,8,15 

186 INPUT#1,A,B*,C,D 

188 PRINT"STATO DEL DISCO":PRINT:PRINT"ERRORE # ";A 

190 PRINTBf:PRINT"TRACCIA ";C,"SETTORE ";D 

192 CLOSE1 :G0SUB214 : RETURN 

194 REM INSERIRE ROUTINE DI RENAME DISK/ID 

196 PQKE532S0,0 :P0KE53281,0 : PRINT"X" 

198 PRINT"sR DOS 

200 PRINT"QQQ3]]<C> 1985 " 

202 PRINT"QQQQ 
204 PRINT"Q 
206 PRINT"Q 

208 PRINT"QQQQQPER CORTESIA PREMERE UN TASTO 
210 GETA* =IFA*=""THEN210 
212 RETURN 

214 PRINT"QQUN TASTO PER IL MENU"" 



89 


216 GETRf : IFflf=""THEN216 
218 RETURN 

220 F'OKE 53280,0 : PQKE 

53281,0 : FRINT" X" : DIMRf <255>: OPEN1,3,15,"I" 

222 0PEN3,3,3, 

224 PRINT# 1, "U1 : "3; 8.: 18; 0 

226 FORI=0TO255 ■' GET#3,fìf : IFRf=" "THENRf=CHRf(0> 

228 fìf < I > =Rf ■ NEXT : Rf= " " : PR I NT " sQ " 

230 CL0SE3 : CLOSE1 : FORI = 144T0159 •' R$=Hf+Hf < I > : NEXT 
232 PRINT"sQPRECEBENTE NOME :";fìf:Rf="" 

234 INPIJT"QNUOVO NOME : ", Rf : IFfìf=" "THENT= 16 ■ GGSUB262 

236 Rf=LEFTf(Rf+" ’M6) 

238 FORI = 1TOLEN<Rf> : RfCI43+1> =MIDf< fìf,1,1>:NEXT 
240 I f=Rf *: 162 ) +Rf C163 ) : fìf= " " 

242 PRINT"QQPRECEDENTE IH :";lf 

244 I NPIJT " QNUOVO ID. = " , Rf : IFRf= " " THENT=2 : G0SUB262 

246 Rf=Rf •+" "= fl$ <162 > =LEFTf < fìf,1>:Rf <163 > =MIDf(Rf,2,1> 

248 OPEN1,8,15,"I" 

250 0PEH3,8,3,"#" 

252 PRINTttl,"E-P:"3;0 

254 FORI=0TO255:PRINT#3,fl$<I); :NEXT 

256 PRINTttl,"B-p:"3;0 

258 PRINT#1,"U2 : "3;0; 18;0 

260 CL0SE3:PRINTil,"I":CLOSE1 :G0T02 

262 FORI = 1 TOT : INPUT " CODI CE RSC " ; 2 = fìf=flf+CHRf < Z ) : NEXT : RETURN 
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5 REM *#* OH ERROR M* 

1O P0KE56,PEEK<56>-l•P0KE52,PEEK<52>-1 
20 IN=PEEK<56)«256+PEEK<55 > 

30 FORI=0T099 :REflDH:POKEIN+I, N : NEXT 
40 P0KE768,PEEKC 55 >:P0KE769,PEEK<56 > 

56 REM LN'.-LINEA DELL ERRORE 
60 REM ST=CODICE ERRORE 

2000 DATA 138,016.003,076,116,164,133,144,164,058 
2010 DATA 200,240,080,169,128,072,169,204,133,069 
2030 DATA 169,197,133,070,160,000,032,235,176,160 
2040 DAT A 000,165,058,145,@71,200,165,057,145,071 
2050 DAT A 169,204,133,069,169,206,133,070,160,000 
2060 DAT A 032,235,176,104,160,000,177,071,133,021 
2070 DATA 200,177,071,133,020,165,043,166,044,032 
2080 DAT A 023,166,144,017,165,095,233,001,133,122 
2090 DATA 165, 096,233,000,133,123,1@4,104,076,234 
3000 DATA 167,162,017,076,058,164,234,234,234,234 
JREADV. 
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0 REM *** TRACK-COPV *m 

1 INPUT"sQQTRBCCIfl DB COPIARE I I I I ";T ; IFT<10RT>35THEN1 

5 PRI NT " sQ -TRBCK COPV-" 

10 R*="INSERIRE DISCO SORGENTE & PREMERE 
RETURN": 1 = 146 :GOSUB1000 

20 D*="APERTURA CANALE DI ERRORE" GOSUB20U0 
25 

OPEN1,8, 15/"IO '" : 0PEN5,8,5,"#" :DIMA*<20 >, B*<20) : D*="" : GOSUB200 

0 :GOSUB3000 

35 IFT<18THENR=20 

40 IFT>17ANDT<25THENR=18 

50 IFT>24ANDT<31THENR=17 

60 IFT>30THENR=16 

65 GOSUB4000 

70 FORS=0TOR : GOSUB4000 : D*="LETTURA BLOCCO DAL 
DISCO" : GOSUB2000 
80 

PRINT#1,"U1:"; 5;0;T;S:GOSUB3000•D$="":GOSUB2000 ; D*="LETTURA 
DATI" : GOSUB2000 

90 FORI=0TO254:GET#5,A*•IFA*=""THENA*=CHR*<0> 

100 A* <S > =A*<S > +A*: IFST=0THENNEXTI 

105 GET#5,B*<S>:IFB$<S)*""THENB$<S>=CHR$<0) 

110 GOSUB2000=NEXTS 

115 D*="CHIUSURA DI TUTTI I FILES E 

CANALI" : GOSUB2000:CLOSE1 : CL0SE5 

120 R*="INSERIRE NUOVO DISCO & PREMERE 

RETURN":I=146GOSUB1000 

130 D*=" " : GOSUE'2'000 ; D*="APERTURA CANALE DI ERRORE" : GOSUB2000 

135 OPEN1,8.15/"I0":0PEN5/8/5/"#"=OOSUB3000 

140 

D*=""■GOSUB2000:FORS=0TOR:PRINT#1,"B-P:"; 5;0 = D*="SCRITTURA 
BLOCCO" : GOSlIB2000 
150 GOSUB4000 : PRINT#5,A* <S)B* <S >; 

160 PRINT#1,"U2:";5;0;t;s 
170 GOSUB3000 
200 NEXTS 

210 D*="" : GOSUB2000 ; D*="VUOI ALLOCARE I BLOCCHI 
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< S/N GOSUB2O00 

220 GETfi$ : IFfl$O"N"fiNDR$O"S"THEN220 
230 IFR$="H"THEN255 

240 D$="":GOSUB2000:FORI=0TOR:D$="RLLOCRTIWG 

BLOCK":GOSUB2000:S=I:GOSUB4000 

250 PRI NT# 1, " B-R : ; 0T ; I : NEXT : D$= " " : GOSUB2000 

255 D$="CHIUSURA DI TUTTI I FILES E CANALI " GOSUB2000 

260 CLOSE1 : CL0SE5 : FORI=0TO100:HEKT 

265 D*= " " : GOSUB2000 •' D$= " D I SCO COPI flTO " 

270 GOSUB2000^ END 

1000 PRINT"SQQQQQQ"SPC<<40-LEN< R$ >>/2>CHR$(I)R$ 

1010 FORV=0TO50:GETG* : IFG*=CHRf<13>THENRETURN 
1020 NEXTV 

1030 IFI = 18THENI = 146 : GOTO1000 
1040 IFI=146THEN1=18-GOTO1000 
2000 IFDt=""THEND$="r 
2002 PRINT"SQQQQQQ 

2005 PRINT"Q~-0 P E R fi Z I 0 N E-" 

2010 H=<40-LEN<D*>> /2■ PRINTSPC<H)"R"D $; 

2020 

PRINTTHEC 80 >"QQQQQQQr- 

"^ RETURN 

3000 PRINT"SQQQGQQQQQQQQQQQQIl IDISK* STATUS R "i 
3010 INPUT#1,A$,B$,C*,D$ 

3020 V$="> ":PRINTR$V$B$V*C*V*D»"r 
" : I FR$0 "00 " THEN4020 
3030 RETURN 

4000 PRINT"SQQQQQQQQQQQQQ"; 

4010 PRINT"]3]RTRRCCIR "T"r RSETTORE"S"I "=RETURN 
4020 PRINT"SQQQQQQQQQQQQQQQQQGQQQQR3 ] ] ] ] 3 3 DISK ERROR 
CONTINUO ? " 

4030 GETR$ : IFR$O"S"fiNBR$<>"N"THEN4030 
4040 IFA* = '" N " THENCLOSE1 : CL0SE5 : END 
4050 PRINT"SQQQQQQQQQQQQQQQQQQQQQQ 
"^ RETURN 
JRERDV. 

J 
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1 DIMA$<40> 

10 REM ESAMINA ID 
28 REM DISCO 

30 REM PER SPROTEGGERE ERRORI 
40 QPEN8,8,8, "#".: 0PEN15,3,15 

50 POKE 53280,1 :P0KE53281,1 :PRI NT" s«-" 

51 PRINT"R rQ" 

52 PR lHl"**************z SECTOR ID *************** QQ" 

60 INPUT "«-TRACCIfi DA ESAMINARE " ; TR : A*<T) = "TR. "+STR$<TR> 

70 INPUT"SETTORE DA ESAMINARE ";SC:A*<T>=A$<T)+" SC. 

"+str$<: sce¬ 
so PRINT#15,"U1:",8,0,TR;SC 

90 INPUT# 15, A*, B$, C* , D$ : I FVAL < A$ >029ANDVAL < A* > >0THEN200 
100 PRINT#15,"M-R"CHRS<22 > CHR$(0 > 

110 GET#15,Ilt 

120 PRINT#15,"M-R"CHRS<23 >CHR$ <0 > 

130 GET#15, 12$ : AS < T> =A$<T> + " ID=" + 11S+I2S 

140 PRINT"QfiD SULLA TRACCIA";TR;"SECT.";SC;"====> R"; 11*; 12$ 
150 PRINT"QRz SPAZIO PER CONTINUARE - FI PER FINIRE r" 

160 GETX* : IFXf=""THEN160 

170 I FX$= " e "THEN300 

180 T=T+1 : GOTO50 

200 REM ****** ERROR ****** 

210 PRINT"QERERROREr " ,A*,BS,CS, DS 

220 A*<T>="TR."+STR$<TR>+" SC."+STR$<SC)+" £R"+A$+" "+B*+"«r" 
230 GOTO150 
300 REM 

305 PRINT" ^**************z SECTOR ID *************** QQ" 

310 PRI NT "«-TRACCE E SETTORI ESAMI NAT IQQ" 

320 FORQ=0TOT 
330 PRINTASCO) 

340 NEXT 
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10 REM *** RECUPERO FILE *** 

100 PRINT"sQ RRECUPERO FILE rQ" 

130 REM======================== 

140 DI MFE$ (. 32)> TF$ < 5) : X#®" ,r :R*=" " 

150 FORI=0T05^ READTF*<I)■NEXTI’CC=0 
160 K=0 •' CH=9 : S= 1 : TR=18 ; T=TR : DR$= " 0 " 

170 IN$="RTIPO HOME FILE TR. SET.LUNG." 

180 PRINT" 1 RECUPERO FILE CANCELLATOCI" 

130 PRIHT"2 RECUPERO HI TUTTI I FILE CANCELLATIQ" 

200 PRIHT"3 CONVflLIDAQ" 

210 PRINT"4 VISUALIZZAZIONE DIRECTORY AMPLIATACI" 

220 PR I NT " 5 CANCELLAZIONE FI LEO" : PRINT"6 FI NEC!" 

230 PRINT"<SPACE> PER TORNARE AL MENUQ" 

240 PRINT"R1 = REC 1 ; 2 = RECT3 : COHV; 4 : DIR; 5 : CANC; 6 : ENDr-" ; 

250 GETR*^IFR$=""THEN250 

270 R=VAL< R$ >:PRINTTRf:RT=0 

280 OHRGOTO450, 960, 1000,1500.. 1800 > 2000 

290 END :REM========================== 

295 REM ===== LEGGE,STAMPA DIRECTORY® 

298 REM============================== 

300 TT=ASC<FES<1)) : SS=ASC<FE$<2>> 

310 FT=ASC( FE$ (0)> AND127 

320 IFFT>5THENPRINT"TIPO ERRATO":FT=5 

330 TF$=TF$<FT> 

340 LF=ASC(FEt(28))+256#ASC(FET(29)) 

350 TTf=RIGHT$<" "+STR$ <TT),3 > 

360 SS$=RIGHT$<" "+STR*<SS),3) 

370 LF*=RIGHT$<" "+STR$<LF>,5> 

380 PRINT"R"TFf"r "NF$;TAB <20) 

390 IFSPTHENPRINT#4," R"TF$"r "NF$; 

400 PRINTTTt, SS$.; LF$ 

410 1FSPTHEHPRI NT#4, TT$SS* ; LFf 
420 RETURN 

440 REM============================= 

450 PRINT"RRICERCA DI CERTO FILE" 

455 REM============================= 

460 GOSUB750 
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470 FRINT"NOME DEL FILE Dft RECUPERARE" 

480 INPUTNO» : L=LEN < NO$ > : FORK= 1TOL 
490 I FU 1 1)$ C NO» / K /1 )=" # “ THEHL=K-1 : K=80 
500 NEXTK=IFK<80THENL*16 
510 NO»=LEFT* <NO»+" ",L> 

520 FRINT"STO CERCANDO R"NO» 

525 REH============================== 

530 REN==RICERCA FILE NELLA DIRECT.== 

535 REM============================== 

540 T=TR : OPEN 1.. 8 .> 15 : PRI NT# 1, " I " + DR* 

550 S=1•OPENCH > 8> CH,"#"+DR$ 

560 PRINT#1,"U1 :"CH;DR;T;S 

570 PRINT#1,"B-P:"CH,0 :GET#CH, T$,S* 

580 F0RFE=1T08 

590 GETR*: IFR$=" "THEN710 

600 FORCC=0TO31 : GET#CH, K» 

610 I FX»= " " THENX»=CHR» ( 0 > 

620 FE$ ( OC) =>■.* ■ NEKT : NF$= " " 

630 F0RK=3T018 :NF»=NF$+FE» <K> : NEKT 
640 IFNO$=LEFT$ < NF*,L >THEN1200 
650 HEKTFE 

660 IFT*=""THENT*=CHR*(0 > 

670 IFS$=""THENS$=CHRt<0> 

680 T=ASC<T$):S=ASC <S*) 

690 IFTO0THEN560 

700 F’RINT"RNON TROVATOr "NFf 

710 CLOSECH^ CLOSE1■CL0SE4:GOTO240 

715 REM============================ 

720 REM =GESTIONE ERRORI DA DISCO* 

725 REN============================ 

730 INPUT# 1.. CE», ER», ET», ES» : IFCE»= " 00 " THENRETURN 
740 PRINTCE»,ER»,ET»,ES»,:G0T071@ 

745 REM======================== 

750 REM===== QUALE DRIVE ?===== 

755 REM======================== 

760 PRINT"DRIVE ";DR»" I I I";=INPUTDR» 

770 I FDRfO " 0 " ANDDRfO " 1 " THEN760 
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780 DR=VAL k DR$ > 

790 RETURN 

795 REM======================== 

800 REM===SCELTA TIPO FU_£=== 

805 REM======================== 

810 PRI NT " R0=DEL ; 1 =SEQ ; 2=PRG ; 3=IJSR ; 4=REL, 5=>MENU " 

820 INPUT"RTIPOr 2 I I I ";R =IFR<0OR0>5THEN820 

830 IFR=5THEN710 

840 P0=2+32#<FE-1 >■ TP=R+128 

850 PR I NT# 1, " U1 : " CH ; DR ; TS 

860 PR I NT# 1 .■ "B-P ; "CH;PO 

870 PRINT#CH,CHR$<TP >; 

880 PR IHT#1, " IJ2 : " CH, DR ; T ; S 
890 RETURN 

895 REM============================== 

900 REM=== IL FILE Vft RECUPERATO ?=== 

905 REM============================== 

910 IFM111$ < NF$ ,1,1 ) =CHR$ C 0 ) THEN1420 
920 INPUT"RDA RECUPERARE < S/N/END > r- HIII",R$ 

930 IFR$="S"THENGOSUB800 : PRINT#1,"B-P:"CH,PO+32 
940 IFLEFT$<R$,1 > = " E"THEN1420 

959 RETURN 

960 REN========================= 

970 PRINT"RRECUPERO TUTTI I FILE" 

980 RT=1 : UUTU1510 

990 REH========================= 

1000 PRINT"RCONVALIDA r"; :GOSUB750 
1010 CLOSE1•OPEN1,8,15-PRINT#1,"V"+DR$ 

1020 GOSUE720:G0T071 Q 
1200 REM======================== 

1210 PRINT"TROVATO IL FILE "NFf 
1220 PRINTIN$ 

1230 GOSUB300 

1330 PRINT"CHE TIPO ERA ?" 

1340 GOSUB800 

1420 INPUT"CONVALIDA <S/N) 

1430 IFR$="S"THEN1000 


S I I I ";R$ 
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1440 GOTO?10 

1450 REM========================= 

1500 PRIHT"RVISUfiLIZZAZIONE/STAMPR DIRECTORV" 
1505 REM========================= 

1510 GOSUB750: INPUT "STAMPA Nili",R$ 

1520 SP=0: IFR$="S"THEHSP=-1 :0PEN4,4 
1530 GÙSUB1900 :PRINTINf:S=1 
1540 IFSPTHENPRINT#4,IN$ 

1550 IFSTTHENPRINT"STAMPANTE SPENTA"=END 
1560 OPEN1,3,15:pr i ht#1,"I"+DR$ 

1570 OPENCH,8,CH,"#"+DR$ 

1571 GOSUB720 

1580 PRINT#1,"U1 :"CH;DR,T,S 

1590 PRINT#1,"B-P : "CH,6 :GET#CH,T$,S* 

1600 F0RFE=1T08 

1610 GETRf : IFRf=" "THEN1730 

1620 FORCC-0TO31 : GET#CH,K$ 

1630 IFX*= ""THENX*=CHR$<6> 

1640 FE$<CC>=X* ■ NEXT:NF$=" " 

1650 F0RK=3TO18 :NF*=NF$+FE*<K>■'NEXT 
1660 GOSUB300: IFRTAND< FT=0>THENGOSUB900 
1670 IFFET(3 >=CHR$(8>THEN1730 
1680 NEXTFE 

1690 I FT$=" "THENT$=CHR*<0 > 

1700 IFSf=""THENS$=CHR*<0> 

1710 T=ASC<T$)=S=RSC< S$) 

1720 IFTO0THEH1588 

1730 IFRTTHEN1420 

1740 T=TR : GOTO?10 

1798 REH========================= 

1808 PRINT"RCRNCELLRZZIONE FILE":G0SUB758 
1818 FRINT"NOME DEL FILE DR CANCELLARE" 

1828 I HF'UTRT : CLOSE1 : OPEN 1,8,15 
1830 PRINTttl,"S"+DR$+":"+R$ 

1840 GOSUB720 ; GOT0718 
1890 REM========================= 

1900 REM LEGGE NOME ,IDENTIF.DISCHETTO 
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1916 PQ=6 : IFTR=18THEHP0=144 
1920 S=0: OF'EH 1,8. 15, "I" +DR*:GOSUB720 
1930 OPEHCH, 8,CH,"#" : PRINT#1,"U1 = "CH;DR;TR,S 
194W PR I NT# 1, " B-P : ", CH ; PO : NF$= " " 

1950 FORK=1T020:GET#CH,X* ■ NF$=NFf+X$:NEXT 
1960 PRINTDRT" "NF$•IFSPTHEHPRIHT#4, BR $" "NF$ 
1970 CLOSECH■CLOSE1 : RETURN 
1980 DflTflDEL, SEQ, F'RG, USR, REL, XXX 
199@ REM======================== 

2000 PRINT"RFINE";CLOSE1 :CLOSECH:CL0SE4: END 
JREflDV. 

J 





DISK START 
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1 REM ****DISK. START .64**** 

110 FRINT"DISK FILE LOG" 

130 C$=CHR*<0) 

140 DATA 169.. 0.. 162.. 4.. 149.. 98,202, 16,251 

145 DATA169,160,133,97,162,2,32,198,255 

150 DATA230,101,208,18,230,100,208,6,230,99 

155 DATA208,2,230,98,82,228,255,165,144 

160 DATA240,235,32,204,255,198,97 

165 DATA6,101,38,1@0,38,99,38,98,16,244,96 

170 DATAI69,0, 133,139, 133,140 

180 DATA230,139,208,2,230,140 

190 DATA162,15,32,201,255,169,80,32,210,255 

200 DATA169,4,32,210,255,165,139,32,210,255 

205 DATAI65,140,32,210,255 

210 DATAI69,1,32,210,255,32,204,255 

215 DATA162,15,32,198/255,32,228,255 

220 DATA72,32,204,255,104,201,48,240,200,96 

230 FORJ=860TO977:READX : T=T+X : POKEJ,X : NEXTJ 

240 IFTO16312THENSTOR 

250 DATA"XXX","SEQ","PRO","USR","REL" 

260 FORJ=0TO4 : READTT(J) : NEX'T 

270 I HF'IJT " PRINTER < V/N ) " ; Zf 

280 Z=3 : I FASC < 2$ > =89THENZ=4 : INPUT " DATE " ; Df 

290 0=8 : REM UNIT 8 

300 D=0•REM DRIVE 0 

330 0PEN4, Z ^ OPEN1,U,15,"I"+CHRf<D+48> : CLOSE1 
340 Gf=" 

350 OPEN15,U,15 

360 OPEN1,U,3,"f"+CHRf(D+48> 

370 GET# 1, Af : A=ASC < Af+ ’■ ") 

380 IFA=10RA=65THENL1=141■L2=89 : G0T0410 
390 IFA=67THENL1=3 :L2=735■G0T0410 
400 CLOSE 1 •• PR I NT " ??? " : STOP 
410 PRINT#4,"*** DISK LOG *** ",Df 

420 FORJ=1TOL1 :GET#1,Af:NEXTJ 

430 PRINT#4," "; :FORJ=1T023:GET#1,Af ; PRINT#4,Af,:NEXTJ 
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449 PRINT#4 : FORJ=1T0L2 : GET# 1, fif : NEXTJ 

459 M=M+1 :GET#1,K$,T$,Sf 

460 L7=-l :Z#=CHRta60) : Ff= , ‘" • FQRJ=1T016 : GET#1, 

470 IFfl$=2$THENL7=0 

480 IFL7THENFf=Ff+R$ 

490 NEXTJ 

500 GET# 1 , fi $,R$, fi$ ■ LX=RSC<fi$+C$> 

510 FORJ=1T06:GET#1,fi$:NEXTJ 
530 GET#1,R$L =RSC<RT+Ci> 

550 GET#1,R$:L =L+256*RSC<fì$+C$): IFMC8THENGET#l,fì$,fl$:GOTO570 
560 M=0 

570 SW=ST=IFK$=""GOTO820 

580 K=RSC< K*)-128•IFK<1ORK>4THENK=0 

620 PRINT#4,Tf<K> 

630 PRI NT#4, RIGHT $ < " " +STR $ < L ), 3 > ; " " 

640 PRINT#4,LEFT$< F$+G$, 17> 

650 IFK=0GOTO810 

660 IFK=4THENPRINT#4,"L=";MID$CSTRf<LX) ,2), 

670 0PEN2,U,4,CHR$< H+48 > + " = “+F$+">"+T$<K > 

680 fi—0 ; IFKO2GOTO730 

690 GET#2.. R$.. B* : fl=RSC<Rf+Cf > 

700 B-fiSLXBT+CT > 

710 G0SUB848 
730 IF K ■£ y 4 G 0 T0760 

740 SVS915 ^ R=PEEK<139 > +PEEK<140 >*256-1 
750 PRINT#4,",";MID$CSTRf(R),2>;"R", •GGTO800 
760 PUKE785 ,■ 92 : F'UKE786 > 3 : R=fl+U8R 0 ) 

770 IFK02THENPRIHT#4,fi; "BVTES" ; : GOTO800 
780 PRIHT#4, " "; :RX=fi/256:fi=fi-RX*256:B=B+RX 
790 GOSUB840 
800 CL0SE2 
810 PRIHT#4 


820 IFSN=0GOTO450 

830 INPIJT# 15, R:CLOSE1 : PRINT#4, CHR$< 13) • CL0SE4 : CLOSE15 : END 
840 X=B/16 : GGSUB850 : X=RX16 


850 FORJ=1T02 :XX=X:X=<X-XX ) # 16 = IFXX>9THENXX 
860 PRINT#4,CHRt(XX+48 >; :NEXTJ: RETURN 


X+7 



DISK ME M 0 R V D U M P 
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DISK MEMORY DUMP 


IL DRIVE DEL COMMODORE 64 E" UN li PERIFERICA INTELLIGENTE, 
IN QUANTO POSSIEDE UN PROPRIO SISTEMA OPERATIVO CON TANTO 
DI MICROPROCESSORE DEDICATO <6502> E 2 KBVTS DI RAM. 

IL PROGRAMMA CHE SEGUE SERVE A LEGGERE ED A STAMPARE IL 
CONTENUTO DELLA MEMORIA ROM/RAM DEL DRIVE. 
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17000 REM**#*#***####*#*## 

1701W REM DISK MEMORV DUMP 

17020 REM***************** 

17021 CLR : F'R I NT " s " : P0KE53281,255 : POKE53280,255 : PQKE646, 
17030 DE'v-8 

17040 OPEN15,DEV,15 

17050 DEFFMHI<X> = INT(< X-1NT <X/65536)*65536> 7256 > 

17060 DEFFNLO<X>=X-1NT <X/256 >*256 
17070 INPUT" START ADRESS ",Jt 

17080 IF LEFTT< T$, 1> = "$" THENTf=MI D$(T$ ,2): GOTO17140 
17090 AD=VAL<T$> 

17100 IFADO0THEH17170 

17110 FOR1 = 1TOLENT$ > = T1$=MID$ < T$, 1, 1 > 

17120 IFT1 $> "9 "ORT1 $< "0" THEHF'R INT "44 " : GOTO17070 
17130 NEXT : GOTO17240 
17140 GOSUB20000 

17150 IF ERR THEN F'RINT"4q " : GOTO 17070 
17160 AD=T 

17170 IFAD>65535 OR ADCOTHENPRINT"qq": GOTO17070 
17180 INPUT "OUTPUT TO PRINTER < V/N>?N I I I "Tt 
17190 OF-T$="V" 

17200 IF NOT OP AND T$<>"N"THENPRINT"44 " : GOTO 17180 
17210 T=3 

17220 IF OP THEN T=4 
17230 OPEN 1 .• T 
17240 F'R INT " s " 

17250 FORI=0TO20 
17260 GOSUB18000 
17270 FRI NT# 1HET 
17280 NEXT 

17290 INPUT"Q CONTINUE <V/N> ? Vili",T$ 

17300 IFT$="V"THEN17240 

17310 IFT*<>"N"THENPRINT"4 44": GOTO17290 

17320 F'R I NT# 15 > "10" 

17330 CL0SE1 
17340 CL0SE15 



17350 END 

18000 REM************************** 

18010 REM READ 8 BVTES FROM DISK 
18020 REM************************** 

18030 01*="": 02*="" 

18040 Tl*="" : T2$="" 

18045 PRINT#15, "M-R" CHR$<FNLCKAB) > CHR*<FMHI <AB> > CHR*<0 
18050 F0RJ=0TO7 

18070 GET# 15, T* : T$=LEFT* (. Tf+CHR* ( 0 >, 1 > 

18080 T=fiSC(T$> 

18090 GOSUB 19080 

18100 T1 $=T 1 *+R IGHT* < " 00 " +HE$ >2 ')+" " 

18110 T3$="." 

18120 IF Tf>CHR$C31) AND T$<CHR$<128)THENT3*=T* 

18130 T2»=T2$+T3* 

18140 NEXT 
18150 T=AD 
18160 GOSUB 19000 

18170 HEf=RIGHT$<"0000"+HE*.4)+" "+T1$+" "+T2$ 

18180 AD=AD+8 
18190 RETURN 

19000 REM**************************** 

19010 REM CONVERT T TO HEX 
19020 REM**************************** 

19030 HE$="" 

19040 T1=T-INT<T/16>*16 
19050 T=INT<T/16> 

19060 HE*=CHR$<T1+48-<T1>9 > *7)+HE$ 

19070 IFT>0THEN19040 
19080 RETURN 

20000 REM**************************** 

20010 REM CONVERT HEX TO DECIMAL 
20020 REM**************************** 

20030 T=0 : ERR=0 
20040 F0RI=1T0LEN<T*> 

20050 T1=ASC<MID$ <T$,1,1)>-48 
20060 IFT1>9THENT1=T1-7+ <T1>22 >*15 
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20070 T=T$16+T1 
20080 ERR=T1>150RT1C0QRERR 
20090 NEXT 
20100 RETURN 



DISK INIZIO FINE 
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DISK INIZIO-FINE 


QUESTO PROGRAMMA NON SERVE A SPROTEGGERE ALTRI PROGRAMMI, 
MA SERVE AD INDIVIDUARE SUL DISCO LA LOCAZIONE DI INIZIO E 
LA LOCAZIONE DI FINE DI QUALSIASI PROGRAMMA. 

CIO' RISULTA MOLTO UTILE IN MOLTE OCCASIONI COME GIÀ' 
ESAMINATO IN ALTRE PARTI DEL LIBRO. 

PRESTATE PARTICOLARE CURA NELLA DIGITAZIONE DEL LISTATO, 
CHE E TUTTO IN BASIC, IN QUANTO CONTIENE DEI COMANDI 
DIRETTI AL DOS DEL DRIVE, I QUALI, SE MAL DIGITATI, 
POTREBBERO PROVOCARE IL BLOCCO DEL SISTEMA. 

PER OGNI PRECAUZIONE, E' BUONA NORMA REGISTRARE IL 
PROGRAMMA PRIMA DI MANDARLO IN RUN. 



108 PRINT"sR DISK- inizi o/f i ne. 1.8 

110 FRI NT "NOME PROGRAMMA = INPUTPN* 

128 OPEN15,8,15,"IO" 

138 INPUT# 15, A, A$, B, C = IFAO0THEN1000 
140 OPEN1,8,3,PNÌ+",P,R" 

158 INPUT#15,A,Ai,B,C 
168 IFfl=0THEN200 

170 PRINT"PROGRAMM ",PNi;" NON TROVATO." 

180 CLOSE1 :CLOSE15•GOTO118 
280 PR INTORBATI PER ",PNi; 

210 FORI =F'OS < 0 ) T039 : PR I NT " ", : NEKT : PR I NT 
228 PRINT"QSTARBABRESSE : " 

230 GET# 1, A# •' GET# 1, Bi 
248 IFA*» 1 " "THENAÌ=CHRÌ<8 > 

258 IFBÌ=""THENBi=CHRÌ<8> 

260 SA=ASC < Ai: > +256*ASC < Bi ) 

270 PRINT"RDECIMAL :r"; SA,:SH=SA:SAÌ="" 

288 Fnpi=0TO3 

290 SR=SH-1NT<SH/16 > *16 

300 SR=SR+48 

310 IFSR>57THENSR=SR+7 

320 SAÌ=CHRÌ<SR > +SAÌ 

330 SH=INT <SH/16) 

348 NEKT 

350 PRIHTTAB<20>;"RHEX : r ";SAt 
360 CLOSE1 

378 PRINT"QBLOCCHI OCCUPATI ; "; 

388 OPEN1,8,8, "$■ "+PN$ 

398 GET#1,Ai,Bi 

408 GET#1,Ai,Bi 

410 GET#1,Ai,Bi 

420 GET# 1, Bi : IFSTO0THEN900 

430 I FBiOCHRi < 34 ) THEN428 

440 GET# 1, Bi : I FBiOCHRi < 34 > THEN440 

450 GET#1,Bi : IFBÌ=CHRÌ<32 > THEN450 

460 GET# 1, Bi : I FBiO " " THEN460 
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470 GET#1, fl$ = GET#1, B* = GET#1,R* : GET#1,B* 

480 IFR$=""THENfl*=CHR$<0 > 

490 IFB*=""THENB$=CHR*<0 > 

500 RB=RSC < R* > +256*RSC < B$ > 

510 PRIHTRB 
520 GL0SE1 

530 PRINT"Q ENDRDRESSE•" 

540 Sfl=SR+256*RB 

550 PRINT"RBECIMRL:r";SR; :SH=Sfì:SR$="" 

560 FORI=0TO3 

570 SR=SH-1NT <SH/16)* 16 

580 SR=SR+43 

590 IFSR>57THENSR=SR+7 

600 Sfl*=GHR$<SR >+SR$ 

610 SH=INT <SH/16) 

620 NEXT 

630 PRINTTRB(20 >;"RHEX:r ";SR$ 

900 CLOSE1 : CL0SE15 

999 END 

1000 PRINT"QQRDISK-ERROR:";R;B;C:PRINTR$ 

1010 PRINT"GBITTE BEHEBEN UNO PROGRRMM NEH STRRTEN." 
1020 CLOSE15 : END 



ESAMINA ERRORI 



116 


ESAMINA ERRORI 


GUASTO PROGRAMMA SI INCARICA DI CERCARE E DI MOSTRARE.SU 
VIDEO EVENTUALI ERRORI RESIDENTI TRA LE TRACCE DEL 
DISCO, AL FINE DI POTERLI RIPRODURRE IN SEGUITO CON IL 
PROGRAMMA APPOSITO OPPURE, MEGLIO ANCORA, PER, UNA VOLTA 
INDIVIDUATE LE TRACCE DOVE RISIEDONO QUESTI ERRORI, 
POTERLE RIPRODURRE PER INTERO CON IL PROGRAMMA 
COPIATRACCE. 

IL PROGRAMMA E"' INTERAMENTE IN BASIC, QUINDI NON 
PRESENTA PARTICOLARI DIFFICOLTA" NELLA DIGITAZIONE. 

PER QUANTO RIGUARDA LE MODALITÀ-" D"' USO, POCO DA DIRE I 
COMMENTI CONTENUTI NEL PROGRAMMA STESSO SONO GIÀ" MOLTO 
ESPLICATIVI E DA SOLI GUIDANO MOLTO BENE AL CORRETTO USO 
DEL PROGRAMMA. 
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5 reta esamina errori 

10 GOTO1000 

50 PRINT#15,TS$S$; 

60 PRINT#15,CMfCHRT(CM ) ; 

70 PRINT#15,RD$; :GET#15, Et■ ER=ASC<E$+CHR*<0>)•IFER>127THEH70 
80 RETURN 

100 F0RNT= 1TORT ■' CM= 128 : G0SUB58 : IFER<2THENRETURN 
110 NEXTNT: IFTTTHENRETURN 
120 CM=192 :GOSUB50 ; TT=NOTTT: GOTO100 
1000 P0KE53281,0 : POKE53280,0 :CLR 
1010 OPEN15,8,15,"10" 

1020 I NF'UT# 15, fi • I FflTHENSTOF' 

1030 0PEN2,8,2,"#0"'G$=CHR*<0) 

1040 ID=16+6 : GOT02000 

11 00 

HH=INT <MEM/256) : ML=MEM-MHf256 :PRINT#15,"M-R";CHRt< ML),CHRt(MH 

) 

1200 GET#15, A$ ■ P=PSC(R$+Q$) : RETURN 
1300 : 

1400 PRINT"* " 1 , :NL=INT(BV/16 >:GOSUB1500 :NL=BV-16#NL 
1500 PRINTMID*<"0123456789RBCDEF",NL+1,1);:RETURN 
1600 : 

2000 PRINT"sNzesamina disco" 

2020 PRINT"00000000000000000" 

2030 PRINT"QDI VITTORIO PflULfiQ" 

2031 PRINT" 00" 

2050 PRINT" menu. 

2060 PRINT"QQM-H1. eSflME IB " 

2070 F‘RINT"02. rICERCfi VELOCE ERRORI" 

2080 PRINT"03. riCERCA LENTA ERRORI" 

2085 PRINT"04. riCERCA DI TUTTI GLI ERRORI" 

2090 PRINT"05. fiNE" 

2110 FRI NT "01 NF'UT (1-5):"; 

2220 OPEN 1,0 : I NF'UT# 1, A$ : CL0SE1 : A=VAL(A$) : IFA=0THEN2000 

2230 IFA>5THEN2000 

2240 ONAGOTO3000,4000,5800,5500,6008 

3080 PRINT"sQID DISPLAVQQ" 
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3010 F0RT=1T035 

3020 PRINT#15/"U1= 2/0 >";T;"/0" 

3030 MEM=ID:C0SU61100:1Z=R:NEM=ID+1=GOSUB1100 : 

3040 PRINTRIGHT*<STR$<T>,2>;". 

I H= " ; CHRf < 34 > ; CHRt < IZ > ; CHR$< A >CHR* <34 > } ” " 

3050 EV= IZ : GOSUB 1400 : PR I NT " , ": BV=R : GOSUB 1400 
3060 PR I NTTflB < 20 > ; •' I FT/2= I NT < T/2 > THEHF'R I NT 
3070 NEXTT 

3500 PRINT ; PRIHT"QPREMI RSPAZIOr PER MENU" 

3516 GETA$ : IFfi*0" "THEN351O 
3520 GOTO1000 

4000 PRINT"srlCERCA ERRORIQ" 

4010 F0RT=1T035 

4020 PR I NTR I GHT$ < 3TR* < T >, 2 > ; ". " ; 

4030 PRINT#15,"U1 :2,0,":T;",0" 

4040 

INPIJT# 15, m , B$, C $, D$ : DD$=fl*+ ", " +B*+ ", " +C$+ ", " +D$ : PR I NTDD$ 

4060- NEXTT 

4070 GOTO 3500 

5000 PRINT"srlCERCA ERRORIQ" 

5010 FORT=1T035:FORS=0TO93 
5030 PRINT#15,"U1 : 2,0,";T;","S 

5040 

INPUT# 15.. m, B$, C$, D* : DIP^=R#+ ,, , "+B$+" .• ,, +C$+" , "+D$ : IFflt="66 ,, THE 
H5080 

5041 PRINT"T="T.; " I S=";S5" I 

5050 I FR$=" 80 " THENF'R I NT " q " = GOTO5070 
5060 PRINTDDf- 

5070 GETR$=IFR*<>" "THEN5079 

5071 GETR*:IFR$=""THEN5071 

5079 NEXTS 

5080 NEXTT 
5100 GOTO3500 

5500 PRINT"srICER'CR eRRORIQ" 

5510 PRINT" 1 > 1541": FRINT" 2> 4040":PRINT"Q SELECT 1 OR 2 > 
il"; 

5520 
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R$=" " : 0PEH1 > 0 : INPUT# 1/ R$ : CLOSE1 : R=VRL<R$> : IFfl< 10Rfl>2THEN5516 
5525 PRINT 

5530 I FR= 1 THEHTL=6 : TH=0 : CL=0 ■' CH=0 : MT=40 

5540 IFfl=2THENTL=35 : TH=16 : CL=3 : CH=16 : MT=36 

5541 IHPIJT " MIN TRK ]]1 I I I ";TS 

5542 PRINT" "MT"4 INPUT "MAX TRK"; NT 

5543 INPUT"MAX SECI]0 I I I ";LS 

5544 INPUT"RETRIESI]4 I I l";RT 

5545 INPIJT " OK MSG ]]N I I I";fì*:OK*="4" = IFfì*="Y " THENOKf = " 00, OK " 
5550 TSf="M-W"+CHR*(TL)+CHRT<TH > +CHRt(2) 

5560 CM*="M-W"+CHR*<CL > +CHR$<CH>+CHRT(1> 

5570 RD*="M-R"+CHR*<CL)+CHR*<CH > 

5571 F'RINT#15, "IJR : 2 0 18 0" 

5588 FORT=TSTQMT : TT=0:T$=CHR*<T > 


5590 

MS=LS : IFMS=0THENMS=20 : IFT>17THENMS=18 : IFT>24THENMS=17 : IFT>30T 
HENMS=16 

5600 FQRS=0T0MS : S*=T*+CHR*(S) 

5610 PRINT"T="T;" l S=";S;"I "; 

5620 6QSUB100 : REM TRV RERB 
5630 

ONERG0TO564tì.• 5650 1 5660.• 5670/ 5680/ 5690/ 5700/ 5710/ 5720/ 5730/ 574 
0 

5640 ER*=OK* : G0T05758 

5650 ER$="20/BLOCK HERDER NOT FOUND" : GOTO5750 

5660 ER$="21 .■ NO SVNC CHRRRCTER" -GOTO5750 

5670 ERJ="22/DRTR BLOCK HOT PRESENT"•GOTO5750 

5680 ER$="23/CHECKSUM ERROR IN DRTR BLOCK"■G0T05750 

5690 ER$="24/BVTE DECODIHG ERROR"=GOTQ5750 

5700 ERf = " 25.. WRITE-VERIFV ERROR " : GOTO5750 

5710 ER$="26/WRI TE PROTECTED":GOTO5750 

5720 ERT= "27..CHECKSUM ERROR IN HERDER" G0T05750 

5730 ERf-"28/WRITE ERROR/LONG DRTR ELOCK" : GOTO5750 

5740 ER$= " 29, DISK ID MI SMfìTCH " ■' GOTO5750 

5750 PRINTER* 

5760 GETR$: IFfi*=""THEN5780 

5761 IFR*=" 4 -" THEHS=M8 : T=MT : GOTO5780 





cu cn cn cu 
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770 GETfl$ : IFfl$=""THEM5770 

771 I FR$= " THENS=MS : T=MT 
780 NEXTS 

780 NEXTT 
5800 GOTO3500 

6000 PRINT#15,"10"■CL0SE2•CLOSE15•PRINT"s"•END 



BACK N I BBLE 



COPIA NASTRO 
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PORTE IN BASIC DEL PROGRAMMO COPIONASTRO 


1 P0KE56/PEEK< 44)+2 : PRINT"ftQPREPARE FOR 

LOAD":WAIT653,1 : SVSPEEK< 44 )*256+292 :1FPEEK<144)AND48THEN4 

2 IFPEEK (828)><1ANDPEEK < 828)X3THENPRINT"QQNQT A PROGRAM 
FILE." : END 

3 PRINT"sQPREPARE FOR 

SAVE" ; WAIT653<1 :SVSPEEK<44>#256+383 : G0T05 

4 PRINT"QR£LOAD ERRORr*-" : PRINT"QRUN flGAIN"^END 

5 PRINT"QSAVE AGAIN?":POKE198,0:WAIT198,1 : IFPEEK<631>*89THEN3 
7 I FPEEK < 631W8THEN1 

6 END 
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DATI L.M PER PROGRAMMA CQPIAHASTRO 


0920 

CI 

R5 

R9 

C2 

R9 

C2 

CD 

53 

ti riri\s 

0928 

C3 

D0 

2R 

R9 

01 

R2 

01 
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0 REM *## BRCK-UP BLOCCHI **# 

1 FORI=328T0383:REflDfl:POKEI, A :NEXTI 
10 REM"D=SAVE"BACK2% D0:?DSf:CATALOGD0 
20 BB=PEEK(44 >+27 :P0KE995,BB 

30 P0KE998,PEEK < 55):P0KE999> PEEK<56 >:P0KE55 >0 :P0KE56,BB:CLR 
40 BB=PEEK<995) 

50 N=PEEK< 999>-BB-1 :BR=BB#256:MR=828 
60 DIMBMXC35; 24) 

70 FORJ=0TO7 : TR<J)=2tJ : NEXT 
80 PRINT"s 3 3 3RBRCKUP 1541r" 

90 PRINT"Q'GOTO10000'IF PROGRAM QUITS RBNORMRLLV" 

100 PRINT"Q"N"BUFFERS RVRILRBLE" 

110 0PEN1.8,15 

200 REM**# MRIN FUNCTIOHS *#* 

210 GOSUB1000 

220 D$="S":GOSUB3200:12»«I R$ 

230 IFDR$<>"2R"THENPRINT"RILLEGRL DOS 1.0 DISKrGOTO10000 
240 IFI2#=I1fTHEHPRINT"RSOURCE RHD DESTINATIOH HRVE SRME ID 
CODEr": GOTO10000 
250 GOSUB2500 

260 T=TS : S=0 : NU=1 : T1=T ; S1=S 
270 PRINT#1,"10":0PEN3,8,3,"#" 

280 PRINT"RERDING BLOCK 

290 IFBMX <T1,S1)=0THENGOSUB2000:NU=HU+1 : IFNU>NTHEN320 
300 Sl-Sl+1 : IFS1>20THENS1“0 : T1=T1+1 
310 IFT1<TF+1THEN290 
320 PRINT"Q" 

330 CL0SE3 

340 D*="D":GOSUB3200: IFI R$011 $ THENGOTO340 
350 PRINT#1, "10" •■QPEN3,8,3, "#" 

360 PRIMT"WRITING BUFFER #"J 
370 NU=1:T1=T:S1=S 

380 IFBMX < T1,S1)=0THENGOSUB2200:NU=NU+1 : IFNU>NTHEN410 
390 S1=S1+1 : IFS1 )'20THEHS1—0 • T1 = T 1+1 
400 IFTKTF+1THEH330 
410 PRINT"Q" 
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420 CL0SE3 

430 S=S1+1:IFS>20THEHS=0 : T1=T1+1 

440 T=T1:IFT>TFTHEN500 

450 D*="S" : GOSUB3200 : IFIR*OI2$THEN450 

460 NU=1 :T1=T:S1=S•GOTO270 

500 REM FINISHED KFERS 

510 CLGSE1 

520 P0KE55,PEEK< 998 >:P0KE56,PEEK(999) : CLR 
530 PRINT"QQBRCKUP COMPLETE" 

548 OPEN1 j8j0,"$0" 

550 GET#1,A* ■ IFfl$<>"R"THEN550 
560 PRINTfl*; : GOTO610 

570 GET#1, fi* : SS=ST : A=LEN<fl$> : IFRTHENfì=RSC<R$> 

580 GET#1/B$:SS=ST:B=LEN(B* >: IFBTHENfl=RSC<É$) 

590 IFSSTHEN660 

600 IFR=1RHDB=1THEHGOSUB630 

610 GET#1 , fì* : IFR*=""THENPRINT:GOTO570 

620 PRIHTR*; : GOTO610 

630 GET#1 > R* ; SS=ST : fì=LEN<A$) : IFRTHENA=ASC < Rf "> 

640 GET#1, E‘$ : SS=ST : B=LEN<B$) : IFBTHEHB“RSC C B$ ) 

650 N=B#256+R:PRINTN; : RETURN 
660 CLOSE1 
670 END 

1000 REM HERDER DEST DISK 

1010 PRINT"QINSERT DESTINATION DISK TO BE FORMRTTED" 
1020 INPUT"QQDISK NRME]3I]3";DN$ 

1030 IFDN$=" "THENPRINT"444"; : GOTO1020 

1040 1FLEN< DN$)>16THENCLR:GOTO40 

1050 F=0 : FORJ=1TOLEN(DN$) : Slf=MID*<DN$,J,1> 

1060 IFS1*=" "ORS1*®CHR$ < 34)THENF=1 
1070 NEXTJ:IFFTHENPRINT"qqq";:GOTO1020 
1080 INPUT"QUNIQUE DISK IDM1$ 

1090 IFI1$=" "THENPRINT"qq"; : GOTO1080 
1100 I FLEN (11 * > 02THENPRI NT " q q " ; : GOTO 1080 
1110 PRINT#1;"N0:"+DN$+",“+I1* 

1120 GOSUB3000 

1130 IFERTHENPRINTER*: GOTO10000 
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1140 RETURN 

2000 REM READ BLOCK T1,S1 TO BUFFER # NU 
2010 C=. 

2020 PRiNT#i/ ,, ur , ;3;0;Ti;si 
2030 GOSUB3000:IFNOTERTHEH2060 
2840 C=C+1:1FCOGOTO2020 
2050 

PRIHTERf:FORJ=<BB+NU)#256T0<BB+NU)*256+255 :POKEJ,. :NEXTJ: GOTO 
2100 

2060 PRIHTil,"B-P";3;0 

2070 IFNUO0THENPRI NT " Ili"; RIGHT$<" "+STR$<NU),3);" I I I"; 

2080' P0KE996,PEEK< 3>:PQKE997,PEEK <A> ■ P0KE4,BB+NU:SVSMA 
2085 P0KE3 ,PEEK < 996) : P0KE4 ,PEEK < 997 ) 

2090 IFSTO. flNDSTO64THENGOSUB3008 : GOTO2050 
2100 RETURN 

2200 REM WRITE BLOCK T1,S1 FROM BUFFER # NU 
2210 C=. 

2220 PRINT#1,"B-R"J0;T1;S1 : PRINT#1, "B-P"; 3;0 
2230 PRINT" I I I I ";RIGHTtC" "+STR*<NU>,3);" III"; 

2240 P0KE996 , PEEK < 3):P0KE997 > PEEK <A> ■ P0KE4 , BB+NU : SVSMA+3 
2245 P0KE3,PEEK <996):P0KE4,PEEK(997) 

2250 IFSTO.ANDST064THENPRINT"RIEEE WRITE 

ERR0R"ST"r":GOTO10000 

2260 PRINT#1,"U2"; 3;0;TI ; SI 

2270 GOSUB3000 : IFNOTERTHEN2300 

2280 C=C+1 : IFCC3THEN2260 

2290 PRINT"RUNRECOVERABLE WRITE ERROR"ER$ : GOTO10000 
2300 RETURN 

2500 REM GET BAM TO BM/:<T,S) 

2510 TS=1 : TF=. 

2520 PRINT#1,"I0":0PEH3,8,3,"#" 

2530 S9=0 

2540 PRINT"QTRACK # BLOCKS TO KFER" 

2550 PRINT"########################" 

2560 NU=0:T1 = 18 :S1=0 :C0*=CHR*<.>:GOSUB2000 
2570 BV=4 

2580 TX=<BV-4)/4+l 



129 


2590 PRINT" "ijy.i 
2600 

IFPEEK < BR+BV ) =. THENFORJ=. T020 : BM‘.'< TX, .J > =. : NEKT : BV=E'V+4 : G0T026 
50 

2610 S=0 
2620 

BV=BV+1 • R0=PEEK<BR+BV> : FORJ=. T07 : BMK (.TX,S) =R0RHDTR CJ) • S=S+1 : H 
EXT 

2630 IFS<22THEN2620 
2640 BV=BV+1 

2650 ES=21 : IFTK>17THENES=19 

2660 IFTK>24THENES=18 

2670 IFTK>30THENES=17 

2630 FORJ=EST024 : BtIX(TX, J >=-1 • NEKT 

2690 SM=.:FORJ=.TO20: IFBMK <TX,J> = . THEHSM=SM+1 

2700 NEKT:PRINTTRB<12>; SM :S9=S9+SM 

2710 IFSM=.RNDTS=TKTHENTS=TS+1 : GOTO2730 

2720 IFSMO. THEHTF=TK 

2730 I FBV<: 143THEH2580 

2740 CL0SE3 

2750 PRINT-STRRT =";TS; M FINISH = ";TF 
2760 PRINT"QR TOTRL OF";59 J"BLOCKS TO KFER" 

2770 S8=90+25+ <.650+.980 > *S9 

2780 S7= INT (. S8/60> : PRINT"RPPROK" ; S7" : " INT<S8-S7*60> ; "FOR 
COPV" 

2790 RETURN 

3000 REM RERB ERR CH TO ER,ER$ 

3010 INPUT# 1 , E0$,El$, E2$, E3t : ER$=E0t+" ; "+E1$+" > ,, +E2t+", "+E3$ 
3020 ER=LENCE0f): IFERTHENER=VRL < E2$) 

3030 RETURN 

3200 REM INSTRUCT TO SWRP TO DISK GIVEN IN I)$ 

3210 IFB$="D"THENS1$="DESTINATIQN" ; GOTO3230 
3220 S1$="SOURCE" 

3230 PRINT"QINSERT OSI*," DISK, PRESS R r" 

3240 GETA$ ; IFR$0" "THEN3240 
3250 0PEN2,8,0,"$0" 

3260 GOSUB3000OFER>0THEN 10000 
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3278 FORJ= 1T026 : GET#2, R* : HEXTJ 
3280 GET#2,R$:GET#2,B$: IR$=R$+B$ 

3290 GET#2, R$ : GET#2, R$ : GET#2, B$ ■ DR$=fl$+B$ 

3300 CLQSE2: RETURN 
10000 REM DROP OUT 

10010 P0KE55, PEEK< 998 >:P0KE56,PEEK<999 >:CLR : STOP 
15000 

DRTR7t>,1'6 , 3 , 76 , 91 , 3,162 , 8, 32, 198 , 255 , 160 , 0 ,132 >3 / 32 , 20 ( , 255 > 1 
45 

15010 

BRTR3,165,144,208,3,200,208,244,32,204,255,96,162,3,32,201,25 

5, 160 

15020 

DRTR0,132,3,177,3,32,210,255,165,144,208,3,200,208,244,32,204 
,255,96 
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